home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 70.zip / BS1 part 70 / PK-Talk disk 1.adf / PK-TALK.ger < prev    next >
Text File  |  1990-12-29  |  51KB  |  1,497 lines
  1. REM * <PK-TALK> V 3.4 / de DC 2 GY / Dez.90
  2.  
  3. CLEAR,99999&
  4. GOSUB var.in:GOSUB disk.in:GOSUB bbs.in:MENU ON:MOUSE ON
  5. ON MENU GOSUB menue
  6. ON MOUSE GOSUB dummy
  7.  
  8. rx:
  9.  WHILE LOC(1):P=FNb:IF P<cr GOTO rx 
  10.    P$=CHR$(P):WINDOW OUTPUT 2:PRINT P$;:IF P>cr THEN c$=c$+P$
  11.    IF RIGHT$(c$,4)="cmd:" THEN c$=LEFT$(c$,LEN(c$)-4):WINDOW OUTPUT 2:PRINT bs$bs$bs$bs$;
  12.    IF P=cr THEN
  13.      x$=c$:GOSUB comp
  14.      IF wandeln THEN
  15.        l=LEN(x$):GOSUB wandeln
  16.        IF l<81 THEN LOCATE 25*(1+hires),1:PRINT x$SPACE$(80-l)
  17.        IF l>80 THEN LOCATE 24+25*hires,1:PRINT x$SPACE$(160-l)
  18.      END IF
  19.      c$=x$:IF LEN(x$)>3 AND LEFT$(c$,1)="?" THEN BEEP
  20.      bl1=0:x$=c$:c$=x$:IF LEFT$(c$,1)="/" THEN rmt$=c$:fehler=0:GOSUB rmt
  21.      ck=INSTR(c$," *** CONNECTED to"):IF ck THEN GOSUB c
  22.      ck=INSTR(c$," is: CONNECTED to"):IF ck>0 AND c=0 THEN GOSUB c
  23.      IF c THEN
  24.        IF INSTR(c$,"*** DISCONNECTED") THEN WINDOW OUTPUT 3:PRINT bs$c$:GOSUB d
  25.        IF INSTR(c$,"Link state is: DISCONNECTED") THEN GOSUB d
  26.        x=INSTR(c$,"MCON   ")
  27.        IF x>0 AND INSTR(c$,"was")=0 THEN
  28.          ck$=RIGHT$(c$,LEN(c$)-x-8)
  29.          IF LEFT$(ck$,4)="now " THEN ck$=RIGHT$(ck$,LEN(ck$)-4)
  30.          x=VAL(ck$)+INSTR(ck$,"ON"):IF x>0 THEN rmt1=0 ELSE  rmt1=1
  31.          IF rmt1=0 OR rmt2=0 THEN GOSUB rmt.aus ELSE GOSUB rmt.ein
  32.          GOSUB disp:GOSUB f2
  33.        END IF                  
  34.        x=INSTR(c$,"MDIGI  ")
  35.        IF x>0 AND INSTR(c$,"was")=0 THEN
  36.           ck$=RIGHT$(c$,LEN(c$)-x-8)
  37.           IF LEFT$(ck$,4)="now " THEN ck$=RIGHT$(ck$,LEN(ck$)-4)
  38.           IF INSTR(ck$,"ON")>0 THEN rmt2=0 ELSE rmt2=1
  39.          IF rmt1=0 OR rmt2=0 THEN GOSUB rmt.aus ELSE GOSUB rmt.ein
  40.           GOSUB disp:GOSUB f2
  41.        END IF        
  42.      END IF
  43.      IF LEN(c$)>20 AND MID$(c$,14,1)=":" AND MID$(c$,17,1)=":" AND file=0 THEN 
  44.        c$=LEFT$(c$,10)+MID$(c$,12,5)+RIGHT$(c$,LEN(c$)-20):GOSUB mhliste
  45.      END IF  
  46.      IF file THEN
  47.        IF RIGHT$(c$,16)="BBSMSGS  was OFF" THEN c$=LEFT$(c$,LEN(c$)-16):GOTO rx
  48.        PRINT#2,x$
  49.      END IF
  50.      IF brem THEN
  51.        WHILE LEN(x$)>80
  52.          FOR t=80 TO 60 STEP -1:IF MID$(x$,t,1)<>" " THEN NEXT
  53.          IF t>60 THEN
  54.            PRINT#2,LEFT$(x$,t-1):x$=RIGHT$(x$,LEN(x$)-t)
  55.          ELSE
  56.            PRINT#2,LEFT$(x$,79):x$=RIGHT$(x$,LEN(x$)-79)
  57.          END IF
  58.        WEND
  59.        PRINT#2,x$
  60.      END IF
  61.      IF drucken=1 THEN LPRINT c$
  62.      c$="":GOSUB farb:GOTO tx
  63.    END IF
  64.  WEND
  65.  ON rmtw GOSUB rmt.mh,rmt.cat,rmt.r,rmt.i,,rmt.rfl,txt.sn
  66.  IF pkin THEN GOSUB pk.in.u
  67. tx: 
  68.  i$=INKEY$
  69.  IF i$="" THEN
  70.    GOSUB csr3:IF LEFT$(TIME$,5)<>tim$ THEN GOSUB disp:tim$=ti$
  71.    IF bl1>9 AND mhzeig=1 THEN GOSUB mhlist
  72.    IF c=0 THEN
  73.      IF ctf=2 THEN bl2=bl2+1:IF bl2>2000 THEN ctf=1:GOSUB disp:GOSUB farb
  74.      bl1=bl1+1:IF bl1>5000 THEN
  75.        FOR bl1=1 TO 3:PALETTE bl1,0,0,0:NEXT:POKE 12574721&,254
  76.      END IF
  77.    END IF
  78.    GOTO rx
  79.  END IF
  80.  bl1=0:bl2=0:IF i$=" " AND POS(0)>71 THEN i$=cr$
  81.  GOSUB dtzz:IF dt GOTO tx
  82.  i=ASC(i$+CHR$(0))
  83.  IF i>128 AND i<134 THEN ON i-128 GOSUB f1,f2,f3,f4,f5:GOTO rx
  84.  IF i>133 AND i<138 THEN ch=i-134:GOSUB chs:GOTO rx
  85.  IF i=138 THEN GOSUB f10:GOTO rx
  86.  GOSUB csr3:PRINT#1,i$;
  87. tx.check:
  88.  IF i$=cr$ THEN
  89.    IF LEFT$(txm$,2)="c " OR ctf=1 THEN GOSUB qrv
  90.    txm2$=txm$:txm$=""
  91.  ELSE 
  92.    txm$=txm$+i$:l=LEN(txm$):IF l>1 AND i$=bs$ THEN txm$=LEFT$(txm$,LEN(txm$)-2)
  93.  END IF:GOTO tx
  94.  
  95. dtzz: dt=0
  96. IF zsf=1 THEN
  97.  IF i$="ä" THEN dt=123
  98.  IF i$="ö" THEN dt=124
  99.  IF i$="ü" THEN dt=125
  100.  IF i$="ß" THEN dt=126
  101.  IF i$="Ä" THEN dt=91
  102.  IF i$="Ö" THEN dt=92
  103.  IF i$="Ü" THEN dt=93
  104. ELSEIF zsf=2 THEN
  105.  IF i$="ä" THEN dt=132
  106.  IF i$="ö" THEN dt=148
  107.  IF i$="ü" THEN dt=129
  108.  IF i$="ß" THEN dt=225
  109.  IF i$="Ä" THEN dt=142
  110.  IF i$="Ö" THEN dt=153
  111.  IF i$="Ü" THEN dt=154
  112. ELSEIF zsf=0 THEN
  113.  IF i$="ä" THEN i$="ae"
  114.  IF i$="ö" THEN i$="oe"
  115.  IF i$="ü" THEN i$="ue"
  116.  IF i$="ß" THEN i$="ss"
  117.  IF i$="Ä" THEN i$="Ae"
  118.  IF i$="Ö" THEN i$="Oe"
  119.  IF i$="Ü" THEN i$="Ue"
  120.  dtf=0:RETURN
  121. END IF
  122. dt: 
  123. IF dt=0 THEN RETURN
  124. GOSUB csr3:PRINT #1,CHR$(dt);:txm$=txm$+i$:RETURN
  125.  
  126. wandeln:
  127.  RESTORE wa.ae:x=INSTR(x$,"ae")+INSTR(x$,"Ae")+INSTR(x$,"AE"):IF x THEN GOSUB wa4
  128.  RESTORE wa.oe:x=INSTR(x$,"oe")+INSTR(x$,"Oe")+INSTR(x$,"OE"):IF x THEN GOSUB wa4
  129.  RESTORE wa.ue:x=INSTR(x$,"ue")+INSTR(x$,"Ue")+INSTR(x$,"UE"):IF x THEN GOSUB wa4
  130.  RESTORE wa.ss:IF INSTR(x$,"ss") GOTO wa5
  131. RETURN
  132. wa4:
  133.  IF LEFT$(x$,2)="ae" THEN x$="ä"+RIGHT$(x$,LEN(x$)-2)
  134.  IF LEFT$(x$,2)="oe" THEN x$="ö"+RIGHT$(x$,LEN(x$)-2)
  135.  IF LEFT$(x$,2)="ue" THEN x$="ü"+RIGHT$(x$,LEN(x$)-2)
  136. wa5:
  137.  READ y$,z$:IF y$="ende" THEN RETURN
  138. wa6:
  139.  x=INSTR(x$,y$):IF x THEN x$=LEFT$(x$,x-1)+z$+RIGHT$(x$,LEN(x$)-x-LEN(y$)+1):GOTO wa6
  140.  y$=UCASE$(LEFT$(y$,1))+RIGHT$(y$,LEN(y$)-1):z$=UCASE$(LEFT$(z$,1))+RIGHT$(z$,LEN(z$)-1)
  141. wau6:
  142.  x=INSTR(x$,y$):IF x THEN x$=LEFT$(x$,x-1)+z$+RIGHT$(x$,LEN(x$)-x-LEN(y$)+1):GOTO wau6
  143.  GOTO wa5
  144.  
  145. f1: FOR x=0 TO 99:NEXT:PRINT#1,cc$;:RETURN
  146. f2: GOSUB f1:FOR x=0 TO 50:NEXT:PRINT #1,"k":RETURN
  147. f3:
  148.  GOSUB qrv:zael=zael+1:tx$(sprache)="TEST"
  149.  IF zael>1 THEN tx$(s)=tx$(s)+STR$(zael)
  150. GOTO ddcon
  151. f4: PRINT #1,cc$;:PRINT #1,"d":RETURN
  152. f5: ON ctf+1 GOTO qrv,busy,stby
  153. f10:
  154.  IF RIGHT$(txm2$,1)=cr$ THEN txm2$=LEFT$(txm2$,LEN(txm2$)-1)
  155.  tx$=txm2$:GOTO dd
  156.  
  157. qrv: ctf=2:bl1=0:bl2=0:MENU 1,10,2:MENU 1,11,1:MENU 1,12,1:GOTO disp
  158. stby: ctf=1:MENU 1,10,1:MENU 1,11,2:MENU 1,12,1:GOTO disp
  159. busy: ctf=0:MENU 1,10,1:MENU 1,11,1:MENU 1,12,2:ch=0
  160. chs: PRINT#1,esc$RIGHT$(STR$(ch),1);:GOTO disp
  161.  
  162. mhliste:
  163.  MENU STOP:MOUSE STOP:ck=INSTR(c$,"*")
  164.  IF (ck>19 AND ck<51) THEN
  165.    mh$=UCASE$(LEFT$(c$,ck-1)):IF INSTR(mh$,",") THEN sp3
  166.    x=INSTR(mh$,">"):REM IF x>2 THEN IF VAL(MID$(mh$,x-2,2))>0 THEN sp3
  167.    IF x THEN
  168. via:
  169.      v=1:mhfd=0:mhlen=LEN(mh$)-16
  170.      IF mh(v) THEN
  171.        FOR i=1 TO mh(v)
  172.          IF RIGHT$(mh$,mhlen)=RIGHT$(mhs$(i,v),mhlen) AND LEN(mh$)=LEN(mhs$(i,v)) THEN
  173.            IF mhs$(i,v)=mh$ THEN mhfd=2 ELSE mhfd=1:mhs$(i,v)=mh$
  174.          END IF
  175.        NEXT
  176.      END IF
  177.      IF mhfd=0 THEN
  178.        IF mh(v)<mhmax(v) THEN mh(v)=mh(v)+1:mhs$(mh(v),v)=mh$ ELSE mhs$(1,v)=mh$
  179.      END IF
  180.      IF mhfd<2 THEN GOSUB mhsort
  181.    ELSE
  182. direkt:
  183.      v=0:mhfd=0:vnr=VAL(RIGHT$(mh$,2)):IF vnr>0 GOTO sp3
  184.      mhlen=LEN(mh$)-16
  185.        IF mh(v) THEN
  186.          FOR i=1 TO mh(v)
  187.          IF RIGHT$(mh$,mhlen)=RIGHT$(mhs$(i,v),mhlen) THEN
  188.            IF mhs$(i,v)=mh$ THEN
  189.              mhfd=2
  190.            ELSE
  191.              mhfd=1:mhs$(i,v)=mh$:oft(i)=oft(i)+1
  192.            END IF
  193.          END IF
  194.        NEXT
  195.      END IF  
  196.      IF mhfd=0 THEN
  197.        IF mh(v)<mhmax(v) THEN
  198.          mh(v)=mh(v)+1:mhs$(mh(v),v)=mh$:oft(i)=1
  199.        ELSE
  200.          mhs$(1,v)=mh$:oft(1)=1
  201.        END IF
  202.      END IF
  203.      IF mhfd<2 THEN GOSUB mhsort
  204.      std=VAL(MID$(c$,11,2)):IF std>stdm THEN GOSUB mh.sp:IF brf>0 AND be>0 AND c=0 THEN GOSUB mail
  205.      stdm=std
  206.    END IF
  207. sp3: END IF
  208.  sprung=0:MENU ON:MOUSE ON
  209. RETURN
  210.  
  211. d:
  212.  FOR t=1 TO 3:MENU 2,t,1:NEXT:MENU 2,band,2:MENU 2,8,1
  213.  FOR t=12 TO 15:MENU 3,t,0:NEXT
  214.  brem=0:cz=0:s=0:meme=0:rmtw=0:rmt=0:na$="":c=c-1:IF c<0 THEN c=0
  215.  ON file GOSUB file.sp:GOSUB zss
  216.  lesen=0:CLOSE 2
  217.  IF gegst$>"" THEN lc$="letzter Connect: "+wann$+" "+gegst$
  218. GOSUB f1:GOTO mhan
  219.  
  220. c:
  221.   FOR t=1 TO 3:MENU 2,t,0:NEXT:MENU 2,8,0:GOSUB mhaus
  222.   fehl.z=0:tx$="mc of"+cr$+"md of":GOSUB ddcmd:txl=0:dx=0:clen=0:usc=upsz:c=c+1
  223.   x=INSTR(c$,";"):IF x THEN c$=LEFT$(c$,x-1)
  224.   st$=RIGHT$(c$,LEN(c$)-ck-4):wann$=MID$(c$,ck-9,5)
  225.   ca$="":x=INSTR(14,st$," "):IF x=0 THEN x=LEN(st$)+1
  226.   x$=MID$(st$,14,x-14):GOSUB rufzeichen:gegst$=x$
  227.   via$="":x=INSTR(st$,"via"):IF x THEN via$=RIGHT$(st$,LEN(st$)-x+1):dx=1:IF LEN(via$)>12 THEN dx=2
  228.   IF auto>0 AND gegsid$=auto$(auto,1) THEN autoz=2:tx$="c "+auto$(auto,2):GOSUB ddcon
  229.   GOSUB spe:suf$="":RESTORE ende
  230.   WHILE suf$<"X"
  231.     READ suf$
  232.     IF LEFT$(gegst$,LEN(suf$))=suf$ THEN GOSUB spd:suf$="X"
  233.   WEND
  234.   x$="Ist die Gegenstation bekannt ?":WIND6
  235.   x=VAL(TIME$)
  236.   hallo$(0)="Guten Abend":hallo$(1)="Good evening"
  237.   IF x<18 THEN
  238.     hallo$(0)="Guten Tag":hallo$(1)="Good afternoon"
  239.   ELSEIF x<10 THEN
  240.     hallo$(0)="Guten Morgen":hallo$(1)="Good morning"
  241.   END IF
  242. kartei:
  243.   caf=0:z=0:found=0:flg$="PK-Talk.Daten:Kartei/"+gegst$
  244.   OPEN"a",#3,flg$:CLOSE 3:OPEN"i",#3,flg$
  245.   FOR t=0 TO 9:namen$(t)="":hallo(t)=1:sprache$(t)="-":zsatz$(t)="-":NEXT
  246.   FOR t=0 TO 9
  247.     IF NOT EOF(3) THEN
  248.       LINE INPUT#3,namen$(t):INPUT#3,hallo(t)
  249.       INPUT#3,sprache$(t):INPUT#3,zsatz$(t):found=1
  250.     END IF
  251.   NEXT
  252.   CLOSE 3
  253.   IF found THEN
  254.     IF sprache$(ssid)="eng" THEN GOSUB spe ELSE GOSUB spd
  255.     IF zsatz$(ssid)="IBM" THEN z=2 ELSE IF zsatz$(ssid)="DIN" THEN z=1
  256.     ON z GOSUB zsd,zsi
  257.   END IF
  258.   IF hallo(ssid)=0 GOTO logbuch
  259.   IF ctf<2 THEN
  260.     IF namen$(ssid)>"" THEN hallo$(s)=hallo$(s)+" "+namen$(ssid)
  261.     tx$(0)=hallo$(0)+" und vielen Dank für den Anruf."
  262.     tx$(1)=hallo$(1)+" and many thanks for calling.":GOSUB ddcon
  263.   END IF
  264. sp5: CLOSE 2,3
  265.  IF ctf=0 THEN
  266.    tx$(0)="Operator leider z.Zt. anderweitig beschäftigt..."
  267.    tx$(1)="Operator otherwise busy..."
  268.  ELSEIF ctf=1 THEN
  269.    tx$(0)="Bitte etwas warten, Operator ist vermutlich ganz in der Nähe..."
  270.    tx$(1)="One moment please, operator not far away..."
  271.  END IF
  272.  IF ctf=0 OR ctf=1 THEN
  273.    GOSUB ddcon:IF hallo(ssid)=1 THEN GOSUB hinw
  274.    tx$(s)="CMD?>>":GOSUB ddr              
  275.  END IF 
  276.  brgef=0:FOR t=1 TO brf
  277.    IF brf$(t)=gegst$ THEN
  278.      brgef=1:tx$(0)="Ich habe einen Brief für Sie, kann mit /r gelesen werden."
  279.      tx$(1)="I have a letter for you, pse enter /r to read it.":GOSUB ddb
  280.    END IF
  281.  NEXT
  282. logbuch:
  283.  x$="Logbuch wird geschrieben":WIND6
  284.  x$="     "+datum$+"  "+LEFT$(TIME$,5)+"  "+band$(band)+"  "
  285.  x$=x$+LEFT$(gegsid$+SPACE$(10),10)
  286.  IF namen$(ssid)>"" THEN
  287.    x$=x$+LEFT$(namen$(ssid),15):IF via$>"" THEN x$=x$+" / "+via$
  288.  ELSE
  289.    x$=x$+via$
  290.  END IF
  291.  log.zaehl=log.zaehl+1
  292.  IF LEN(x$)>79 THEN
  293.    x$=LEFT$(x$,79)+cr$+CHR$(10)+SPACE$(38)+RIGHT$(x$,LEN(x$)-79)
  294.    log.zaehl=log.zaehl+1
  295.  END IF
  296.  IF log.dr THEN LPRINT x$ ELSE OPEN "a",#2,"PK-Talk.Daten:DATEN/Logbuch":PRINT#2,x$:CLOSE 2
  297. WINDOW CLOSE 6:RETURN
  298.  
  299. logbuch.disk: log.dr=0:MENU 3,17,2:MENU 3,18,1:RETURN
  300. logbuch.dr:
  301.  log.dr=1:MENU 3,17,1:MENU 3,18,2
  302.  IF drucken THEN GOSUB drucken
  303.  x$="Überschrift drucken (J/N) ?":WIND6
  304.  sort=1:GOSUB key:IF k$<>"j" AND k$<>"n" GOTO logbuch.dr
  305.  WINDOW CLOSE 6:IF k$="j" THEN GOSUB logbuch.ueberschrift
  306.  flg$="PK-Talk.Daten:DATEN/Logbuch":OPEN "a",#2,flg$:CLOSE 2
  307.  OPEN "i",#2,flg$:WHILE NOT EOF(2):LINE INPUT#2,x$:LPRINT x$:WEND
  308. CLOSE 2:KILL flg$:RETURN
  309.  
  310. logbuch.ueberschrift:
  311.  LPRINT"     Packet-Radio-Logbuch von  === "my$" ===":LPRINT
  312.  LPRINT"     Datum      UT     QRG  Gegenstation / Name / VIA"
  313.  LPRINT"     "STRING$(70,"-"):log.zaehl=0
  314. RETURN
  315.  
  316. kartei.sp:
  317.  flg$="PK-Talk.Daten:Kartei/"+gegst$:OPEN"o",#3,flg$
  318.  FOR t=0 TO 9
  319.    IF namen$(t)="" THEN PRINT#3,namen$(ssid) ELSE PRINT#3,namen$(t)
  320.    PRINT#3,hallo(t)
  321.    IF sprache$(t)="-" THEN PRINT#3,sprache$(ssid) ELSE PRINT#3," "
  322.    IF zsatz$(t)="-" THEN PRINT#3,zsatz$(ssid) ELSE PRINT#3," "
  323.  NEXT
  324. CLOSE 3:KILL flg$+".info":RETURN
  325.  
  326.  
  327. rmt: DATA mh,cat,r,i,"h mh"
  328.   IF rmt=0 OR c=0 OR LEN(c$)>18 THEN RETURN
  329.   CLOSE 2:WINDOW OUTPUT 3:rmtz=0:rmtw=0:rub$=""
  330. REM +++ eingabekorrektur +++
  331.   IF LEFT$(c$,2)="//" THEN
  332.     c$=RIGHT$(c$,LEN(c$)-1):rmt$=RIGHT$(rmt$,LEN(c$)-1)
  333.     IF c$=UCASE$(c$) THEN fehler=1
  334.     GOTO rmt
  335.   END IF
  336.   IF LEFT$(c$,2)="/ " THEN
  337.     c$=RIGHT$(c$,LEN(c$)-1):rmt$=RIGHT$(rmt$,LEN(c$)-1)
  338.     GOTO rmt
  339.   END IF
  340. REM +++
  341.   c$=UCASE$(c$)
  342. rmt.w:
  343.   IF LEFT$(c$,7)="/WRITE "THEN c$="/W"+RIGHT$(c$,LEN(c$)-6)
  344.   IF LEFT$(c$,2)="/W" THEN
  345.     IF c$="/W" GOTO unvollstaendig
  346.     IF c$="/W ON" GOTO rmt.w.von
  347.     IF c$="/W OF" OR c$="/W OFF" THEN rmt.wof
  348.     fuer$=RIGHT$(c$,LEN(c$)-3):x$=fuer$:GOSUB rufzeichen:fuer$=x$
  349. rmt2:
  350.     IF nocall THEN
  351.       tx$(0)=x$+" ist ein ungültiges Call!":tx$(1)=x$+" is an invalid call!":GOSUB dde
  352.     ELSE
  353.       IF c$="/W "+my$ GOTO rmt.w.von ELSE GOTO rmt.w.fuer
  354.     END IF
  355.   ELSEIF c$="/GER" THEN
  356.     GOSUB spd:tx$(0)="REMOTE spricht jetzt deutsch"
  357.     sprache$(ssid)="GER":GOSUB kartei.sp:GOTO ddr
  358.   ELSEIF c$="/ENG" THEN
  359.     GOSUB spe:tx$(1)="REMOTE speaks english now"
  360.     sprache$(ssid)="ENG":GOSUB kartei.sp:GOTO ddr
  361.   ELSEIF c$="/U DIN" THEN
  362.     GOSUB zsd:tx$(0)="Umlaute nach DIN-Norm (äöüÄÖÜß)"
  363.     zsatz$(ssid)="DIN":GOSUB kartei.sp:GOTO ddr
  364.   ELSEIF c$="/U IBM" THEN
  365.     GOSUB zsi:tx$(0)="Umlaute nach IBM-Norm (äöüÄÖÜß)"
  366.     zsatz$(ssid)="IBM":GOSUB kartei.sp:GOTO ddr
  367.   ELSEIF LEFT$(c$,5)="/U OF" THEN
  368.     GOSUB zss:tx$(0)="keine Umlaute mehr"
  369.     zsatz$(ssid)="":GOSUB kartei.sp:GOTO ddr
  370.   ELSEIF LEFT$(c$,3)="/N " THEN
  371.     namen$(ssid)=RIGHT$(rmt$,LEN(c$)-3)
  372.     tx$(0)="OK "+namen$(ssid)+", Ihr Namen ist gespeichert."
  373.     tx$(1)="OK "+namen$(ssid)+", your name is stored."
  374.     GOSUB kartei.sp:GOTO ddr
  375.   ELSEIF c$="/D" OR c$="/Q" THEN
  376.     tx$(0)="Vielen Dank für's QSO, Tschüß 73, bis zum nächsten Mal!"
  377.     tx$(1)="many thanks for the QSO, 73's bye bye, hope to see you again soon!"
  378.     GOSUB ddr:FOR tt=1 TO 9999:NEXT:GOTO f4
  379.   ELSEIF LEFT$(c$,3)="/R " THEN
  380.     fl=VAL(RIGHT$(c$,LEN(c$)-INSTR(c$," ")))
  381.     IF fl>flz THEN tx$(0)="Filenummer zu hoch!":tx$(1)="illegal filenumber!":GOTO dde
  382.     IF box(fl)=0 THEN tx$(0)="Filenummer falsch!":tx$(1)="illegal filenumber!":GOTO dde
  383.     CLOSE 2:rmtw=6:RETURN
  384.   ELSEIF LEFT$(c$,5)="/CAT " THEN
  385.     rub$=RIGHT$(c$,LEN(c$)-5)
  386.     FOR t=1 TO rubz
  387.       IF rub$=UCASE$(rubl$(t)) THEN rmtw=2:RETURN
  388.     NEXT
  389.     tx$(0)="Die Rubrik '"+rub$+"' existiert nicht!"
  390.     tx$(1)="this subdir doesn't exist!":GOTO dde
  391.   ELSEIF LEFT$(c$,3)="/C " THEN
  392.     tx$(0)="Sorry, NetRom-Betrieb nicht möglich!"
  393.     tx$(1)="sorry, can't work as netrom!":GOTO dde
  394.  
  395. rmt.help:
  396.   ELSEIF LEFT$(c$,2)="/H" THEN
  397.     IF c$="/H" GOTO rmt.h
  398.     IF c$="/H MH" GOTO rmt.hm.h
  399.     IF LEFT$(c$,4)="/H R" OR LEFT$(c$,6)="/H CAT" GOTO rmt.h.r
  400.     GOTO fehler
  401.   END IF
  402.   IF c$="/V" OR c$="/VER" THEN tx$(s)=ver$:GOTO ddr
  403.   IF c$="/K" GOTO rmt.k
  404.   IF c$="/M" GOTO mail
  405.   IF c$="/A" GOTO rmt.a
  406.   RESTORE rmt
  407.   FOR rmtw=1 TO 6:READ x$
  408.   IF c$<>"/"+UCASE$(x$) THEN NEXT:rmtw=0:IF fehler=0 THEN GOTO fehler
  409. fehler=0:RETURN
  410.  
  411. rmt.h:
  412.  IF rmtz GOTO rmt.rfl
  413.  flg$=bbs$(0)+"PK-TALK-intern/help."
  414. GOTO rmt.hu
  415.  
  416. rmt.qsl:
  417.  IF rmtz GOTO rmt.rfl
  418.  flg$=bbs$(0)+"PK-TALK-intern/qsl."+band$(band)
  419. rmtm=rmtw:rmtw=7:RETURN
  420.  
  421. rmt.h.r:
  422.  IF rmtz GOTO rmt.rfl
  423.  flg$=bbs$(0)+"PK-TALK-intern/help.cat."
  424.  GOTO rmt.hu
  425.  
  426. rmt.hm.h:
  427.  IF rmtz GOTO rmt.rfl
  428.  flg$=bbs$(0)+"PK-TALK-intern/help.mh."
  429. rmt.hu:
  430.  IF s=0 THEN flg$=flg$+"ger" ELSE flg$=flg$+"eng"
  431. rmtm=rmtw:rmtw=7:RETURN
  432.  
  433. rmt.mh:
  434.  IF rmtz=0 THEN
  435.    tx$(0)=cv$+cr$+" MH-Liste von "+my$+" --- "+band$(band)+" --- Zeiten in UT"
  436.    tx$(1)=cv$+cr$+" --- mheard-list of "+my$+" --- "+band$(band)+" --- UT-time"
  437.    GOSUB ddcon:tx$=cv$+cr$+" via digi:":GOSUB ddcon:ue=0:rmtz=1:GOTO mhform
  438.  END IF
  439.  IF rmtz>mhd THEN 
  440.    GOSUB ddcon:rmtw=0
  441.    tx$(0)="Ende der MH-Liste":tx$(1)="End of MH-List":GOSUB ddr:GOTO ddcon
  442.  END IF
  443.  IF INSTR(mhd$(rmtz),">")+ue=0 THEN
  444.    ue=1:tx$(0)=cv$+cr$+" direkt empfangen:"
  445.    tx$(1)=cv$+cr$+" directly heard:":GOSUB ddcon
  446.  END IF
  447.  tx$=mhd$(rmtz)+cv$:rmtz=rmtz+1:GOTO ddcon
  448.  
  449. rmt.cat:
  450.  IF rub$>"" GOTO rmt.cat.rub
  451.  IF rmtz=0 THEN
  452.    tx$(0)=STR$(rubz)+" Rubriken /"+STR$(flzbox)+" Files / insgesamt"+STR$(fle&)+" Byte"+cr$
  453.    tx$(1)=STR$(rubz)+"subdirectories /"+STR$(rubz)+" files /"+STR$(fle&)+" byte over all"+cr$
  454.    GOSUB ddb:rmtz=1
  455.  END IF
  456.  FOR rmtz=rmtz TO rmtz+3:tx$(s)=tx$(s)+rubl$(rmtz)+SPACE$(20-LEN(rubl$(rmtz))):NEXT
  457.  GOSUB ddcon:IF rmtz<=rubz THEN RETURN
  458.  tx$(0)="Inhaltsverzeichnis einer Rubrik mit /CAT <Rubrikname>"
  459.  tx$(1)="list of files in subdirectory with /CAT <name of subdir>"
  460. rmtw=0:GOTO ddb
  461.  
  462. rmt.cat.rub:
  463.  IF rmtz=0 THEN
  464.    rmtz=1:tx$(0)=cr$+cv$+" Nr.  File"+SPACE$(40)+"Datum     Länge in Byte"
  465.    tx$(1)=cr$+cv$+" nr.  file"+SPACE$(40)+"date      length in byte"
  466.    GOSUB ddcon:tx$(s)=" "+STRING$(73,"-"):GOSUB ddcon
  467.  END IF
  468.  IF box(rmtz) AND rub$(rmtz)=rub$ THEN
  469.    tx$(s)=STR$(rmtz)+SPACE$(6-LEN(STR$(rmtz)))+fl$(rmtz)
  470.    IF com$(rmtz)>"" THEN tx$(s)=tx$(s)+" / "+com$(rmtz)
  471.    tx$(s)=tx$(s)+SPACE$(50-LEN(tx$(s)))+dat$(rmtz)
  472.    tx$(s)=tx$(s)+SPACE$(59-LEN(tx$(s)))+STR$(fle&(rmtz))+cv$
  473.    GOSUB ddcon
  474.  END IF
  475.  rmtz=rmtz+1:IF rmtz<=flz THEN RETURN
  476.  GOSUB ddcon:tx$(0)="File lesen mit /R <File-Nr.>":tx$(1)="read file with /R <file-no.>"
  477. rmtw=0:rub$="":GOTO ddr   
  478.  
  479. rmt.w.von:
  480.  IF brem THEN brief.offen
  481.  brief=1:brem=1:ck=0
  482.  FOR t=1 TO brv:IF brv$(t)=gegst$ THEN ck=1
  483.  NEXT:IF ck=0 THEN
  484.    OPEN"a",#2,bk$+"Briefe von":PRINT#2,gegst$:CLOSE 2
  485.    brv=brv+1:brv$(brv)=gegst$
  486.  END IF
  487.  OPEN"a",#2,bk$+"von "+gegst$:von$=gegst$:fuer$="Sysop":GOTO rmt.w.u
  488.  
  489. rmt.w.fuer:
  490.  IF brem THEN brief.offen
  491.  brem=1:ck=0:brfnr=brfnr+1:FOR t=1 TO brf:IF brf$(t)=fuer$ THEN ck=1
  492.  NEXT:IF ck=0 THEN brf=brf+1:brf$(brf)=fuer$
  493.  OPEN"o",#2,bk$+"Briefe für":PRINT#2,brfnr:FOR t=1 TO brf:PRINT#2,brf$(t)
  494.  NEXT:CLOSE 2:von$=gegst$:OPEN "a",#2,bk$+"für "+fuer$:c$=""
  495.  
  496. rmt.w.u:
  497.  brem=1:MENU 4,2,1 :tx$(0)="Nachricht für * "+fuer$+" * speichern, Ende mit /W OFF"
  498.  tx$(1)="storing mail for * "+fuer$+" * end with /W OFF":GOSUB ddb
  499.  
  500. brf.header:
  501.  IF LOF(2) THEN PRINT#2," "esc$"z_"esc$"z_"esc$"q_":PRINT#2,""
  502.  PRINT#2,"Nachricht von * "von$" * vom "datum$" / "LEFT$(TIME$,5)
  503.  x$=STR$(brfnr):x$=RIGHT$(x$,LEN(x$)-1)
  504.  PRINT#2,"*** message-ID: "RIGHT$("0000"+x$,5)+"*"von$">"my$">"fuer$:PRINT#2,""
  505. RETURN
  506.  
  507. rmt.wof:
  508.  IF brem=1 THEN
  509.    CLOSE 2:brem=0:tx$(0)="Danke, Ihre Nachricht an * "+fuer$+" * ist gespeichert.":tx$(1)="Thank's, your message for * "+fuer$+"* is stored.":GOTO ddb
  510.  ELSE
  511.    tx$(0)=go$+"Kein Brief in Arbeit!":tx$(1)=go$+"No mail in work!":GOTO dde
  512.  END IF:rmtw=0:brem=0:RETURN
  513.  
  514. brief.offen:
  515.  tx$(0)="Es ist bereits ein Brief für * "+fuer$+" * in Arbeit !"
  516.  tx$(1)="it's already a letter in work for * "+fuer$+" *":GOTO dde
  517.  
  518. rmt.r:
  519.  IF brgef=0 THEN
  520.    tx$(0)="Z.Zt. leider keine Nachricht für Sie gespeichert!"
  521.    tx$(1)="Sorry, no message stored for you!":GOSUB ddb:rmtw=0
  522.  ELSE
  523.    IF rmtz=0 THEN
  524.      flg$=bk$+"für "+gegst$:rmtm=rmtw:rmtw=7
  525.    ELSE  
  526.      tx$(0)=" Brief-ENDE, löschen mit /K"
  527.      tx$(1)="end of letter, kill it with /K"
  528.      GOSUB ddb:rmtw=0
  529.    END IF
  530.  END IF
  531. RETURN
  532.  
  533. rmt.i:
  534.  IF rmtz=1 GOTO rmt.rfl
  535.  flg$=bbs$(0)+"PK-TALK-intern/Vorstellung."+band$(band):rmtm=rmtw:rmtw=7
  536. RETURN
  537.  
  538. rmt.rfl:
  539.  IF rmtz=0 THEN
  540.    tx$(0)="Filename: "+rub$(fl)+" / "+fl$(fl)+cr$:GOSUB ddb
  541.    flg$=bbs$(bbsneu)+rub$(fl)+"/"+fl$(fl):rmtm=rmtw:rmtw=7
  542.    RETURN
  543.  END IF
  544.  rmtw=0:GOSUB ddcon:tx$(0)="* File-ENDE *":tx$(1)="* END of file *":GOTO ddb
  545.  
  546. rmt.k:
  547.  IF brgef=0 THEN
  548.    tx$(0)="keine Nachricht für Sie gespeichert, die gelöscht werden könnte!"
  549.    tx$(1)="sorry, have no message for you what i could delete":GOTO dde
  550.  ELSE
  551.    FOR x=1 TO brf
  552.      IF brf$(x)=gegst$ THEN
  553.        GOSUB loesch.fuer
  554.        tx$(0)="Alle Nachrichten an Sie sind jetzt gelöscht."
  555.        tx$(1)="All mails for you are deleted"
  556.      END IF
  557.    NEXT
  558.  END IF:brgef=0:GOTO ddb
  559.  
  560. rmt.a:
  561.  rmtw=0:CLOSE 2:tx$(0)="Abbruch durch Benutzer":tx$(1)="abored by user"
  562.  rmtw=0:CLOSE 2:GOTO ddr
  563.  
  564. fehler:
  565.  fehl.z=fehl.z+1
  566.  tx$(0)=rmt$+" ist ein unbekanntes Kommando!"
  567.  tx$(1)=rmt$+" is an unknown Command!":GOSUB dde
  568.  rmtw=0:IF fehl.z<2 THEN RETURN
  569.  
  570. hinw:
  571.  tx$(0)="REMOTE-Befehlsliste mit /H":tx$(1)="REMOTE-command-list with /H":GOTO ddcon
  572.  
  573. unvollstaendig:
  574.  tx$(0)=c$+"-Kommando unvollständig!":tx$(1)=c$+"-command uncompletely!"
  575.  GOSUB dde:GOTO hinw
  576.  
  577. comp:
  578.  WHILE RIGHT$(x$,1)=" ":x$=LEFT$(x$,LEN(x$)-1):WEND
  579.  WHILE RIGHT$(x$,1)=CHR$(0):x$=LEFT$(x$,LEN(x$)-1):WEND
  580. RETURN
  581.  
  582. brief.menu:
  583.  tit$="Brief-Menü":GOSUB wind1
  584.  PRINT:PRINT" »» Eingetroffene Briefe für Sysop:":PRINT
  585.  IF brv THEN
  586.    FOR t=1 TO brv:PRINT t;" von "brv$(t):NEXT
  587.  ELSE
  588.    PRINT " Nichts gespeichert."
  589.  END IF
  590.  PRINT:PRINT:PRINT" »» Abgehende Briefe:":PRINT
  591.  IF brf THEN
  592.    FOR t=1 TO brf:PRINT t+brv" für "brf$(t):NEXT
  593.  ELSE
  594.    PRINT " Nichts gespeichert."
  595.  END IF
  596.  PRINT:PRINT:PRINT" Brief ";:IF brv+brf THEN PRINT"<a>nsehen <d>rucken <l>öschen";
  597.  PRINT" <s>chreiben <z>urück ? ";:sort=1:GOSUB key:PRINT k$
  598.  IF k$<>"a" AND k$<>"s" AND k$<>"l" AND k$<>"d" AND k$<>"z" AND k$<>cr$ GOTO brief.menu
  599.  IF k$=cr$ OR k$="z" GOTO cl
  600.  IF k$="d" THEN druck=1:k$="a"
  601.  IF k$="a" OR k$="l" THEN
  602.    PRINT:INPUT" Brief-Nr.: ";x$:x=VAL(x$)
  603.    IF x=0 OR x>brv+brf GOTO brief.menu
  604.    IF x>brv THEN
  605.      flg$=bk$+"für "+brf$(x-brv):brief=brief-1:IF brief<0 THEN brief=0
  606.    ELSE
  607.      flg$=bk$+"von "+brv$(x)
  608.    END IF
  609.  END IF
  610.  IF k$="a" THEN GOSUB brief.lesen
  611.  IF k$="l" THEN
  612.   IF x>brv THEN
  613.     x=x-brv:x$="für "+brf$(x):PRINT:xx$="der Brief "+x$
  614.     GOSUB loesch.jn:IF k$="J" THEN GOSUB loesch.fuer
  615.   ELSE
  616.     GOSUB loesch.von
  617.   END IF
  618.   GOTO brief.menu
  619.  END IF
  620.  IF k$="s" THEN
  621.    PRINT:INPUT" Rufzeichen des Empfängers: ";x$
  622.    PRINT:IF x$="" GOTO cl
  623.    x$=UCASE$(x$):GOSUB rufzeichen:IF nocall THEN cl
  624.    fuer$=x$:von$=my$:neu=1:brfnr=brfnr+1:FOR t=1 TO brf
  625.      IF brf$(t)=fuer$ THEN neu=0:x=t
  626.    NEXT
  627.    IF neu THEN brf=brf+1:brf$(brf)=fuer$
  628.    OPEN "o",#2,bk$+"Briefe für":PRINT#2,brfnr
  629.    FOR t=1 TO brf:PRINT#2,brf$(t):NEXT:CLOSE 2
  630.    OPEN "a",#2,bk$+"für "+fuer$:GOSUB brf.header
  631.    PRINT:PRINT" +-+ Eingabe-Ende mit <ESC> +-+":PRINT:i$="" 
  632.    WHILE i$<>esc$:PRINT #2,i$;:i$=INKEY$:GOSUB csr1:WEND:CLOSE 2:GOTO cl
  633.  END IF
  634. GOSUB key:GOTO cl
  635.  
  636. brief.lesen:
  637.  CLS:PRINT:OPEN "i",#2,flg$      
  638.  WHILE NOT EOF(2)
  639.    LINE INPUT#2,x$:GOSUB entpack:sort=1:GOSUB blaettern:PRINT x$
  640.    IF druck THEN GOSUB druck.zeile
  641.  WEND
  642.  CLOSE 2:PRINT:PRINT" +-+ Brief-Ende +-+":brief=0
  643. RETURN
  644.  
  645. loesch.von:
  646.  x$="von "+brv$(x):PRINT:xx$="der Brief "+x$
  647.  sort=1:GOSUB loesch.jn:IF k$="J" THEN
  648.    brv$(x)=brv$(brv):brv=brv-1:KILL bk$+x$:OPEN "o",#2,bk$+"Briefe von"
  649.    IF brv THEN FOR t=1 TO brv:PRINT#2,brv$(t):NEXT
  650.  END IF
  651. CLOSE 2:GOTO cl
  652.  
  653. loesch.fuer: 
  654.  KILL bk$+"für "+brf$(x):brf$(x)=brf$(brf):brf=brf-1
  655.  IF brf=0 THEN MENU 4,2,0
  656.  OPEN "o",#2,bk$+"Briefe für":PRINT#2,brfnr
  657.  IF brf THEN FOR t=1 TO brf:PRINT#2,brf$(t):NEXT
  658.  CLOSE 2:RETURN
  659.  
  660. mhsort:
  661.  FOR i=1 TO mh(v)-1:FOR j=i+1 TO mh(v)
  662.    IF mhs$(j,v)<mhs$(i,v) THEN SWAP mhs$(i,v),mhs$(j,v):IF v=0 THEN SWAP oft(i),oft(j)
  663.  NEXT:NEXT:mhalt=0:mhzeig=1:RETURN
  664.  
  665. mhform:
  666.  mhd=1:v=1
  667.  IF mh(v) THEN
  668.    FOR i=1 TO mh(v)
  669.      GOSUB mhk:mhd$(mhd)=mhf$+SPACE$(40-LEN(mhf$)):i=i+1
  670.      IF mhs$(i,v)>"" THEN GOSUB mhk:mhd$(mhd)=mhd$(mhd)+mhf$
  671.      mhd=mhd+1
  672.    NEXT
  673.  END IF
  674.  i=1:v=0
  675.  IF mh(v) THEN
  676.    GOSUB mhk:mhd$(mhd)=mhf$
  677.    FOR i=2 TO mh(v)
  678.      le=LEN(mhd$(mhd)):GOSUB mhk:lemax=60:IF le<40 THEN lemax=40
  679.      IF le<20 THEN lemax=20   
  680.      IF lemax+LEN(mhf$)<81 AND le<60 THEN 
  681.        mhd$(mhd)=mhd$(mhd)+SPACE$(lemax-le)+mhf$
  682.      ELSE
  683.        mhd$(mhd)=mhd$(mhd):mhd=mhd+1:mhd$(mhd)=mhf$
  684.      END IF
  685.    NEXT
  686.  END IF
  687.  FOR i=1 TO mhd:mhd$(i)=" "+mhd$(i):NEXT
  688. RETURN
  689.  
  690. mhk: mhf$=RIGHT$(mhs$(i,v),LEN(mhs$(i,v))-10)
  691.   IF v=0 THEN
  692.     x$=RIGHT$(STR$(oft(i)),LEN(STR$(oft(i)))-1)
  693.     mhf$=mhf$+STRING$(18-LEN(mhf$)-LEN(x$),".")+x$
  694.   END IF
  695. RETURN
  696.  
  697. disp:
  698.  MENU STOP:MOUSE STOP
  699.  datum$=MID$(DATE$,4,2)+"."+monat$(VAL(DATE$))+"."+RIGHT$(DATE$,2):v=0
  700. REM neuer Tag:
  701.  IF datumem$<>datum$ THEN
  702.    FOR t=1 TO mh(v):oft(t)=0:x$=mhs$(t,v)
  703.    mhs$(t,v)=LEFT$(x$,10)+"--:--"+RIGHT$(x$,LEN(x$)-15):NEXT
  704.    FOR t=1 TO mhmax(1):mhd$(t)="":NEXT
  705.    FOR t=1 TO mh(1):mhs$(t,1)="":NEXT:mh(1)=0
  706. REM neuer Monat:
  707.    IF VAL(datum$)<VAL(mhs$(1,v)) THEN
  708.      FOR t=1 TO mh(v):x$=mhs$(t,v):mhs$(t,v)="00"+RIGHT$(x$,LEN(x$)-2):NEXT
  709.    END IF
  710. REM aelter wie ne woche weg:
  711.    WHILE VAL(mhs$(mh(v),v))>VAL(mhs$(1,v))+6
  712.      x=mh(v):mhs$(1,v)=mhs$(x,v):oft(1)=oft(x):oft(x)=0
  713.      mhs$(x,v)="":mh(v)=x-1:GOSUB mhsort
  714.    WEND
  715.    datumem$=datum$:mhdm=0:tx$="mh %":GOSUB ddcmd
  716.  END IF
  717.  tit$=" "+ver$+"»»» "+band$(band)+" ««« ":ti$=LEFT$(TIME$,5):tim$=ti$
  718.  t=1:y$=" "+datum$+" "+ti$+" ­ Sysop "+cta$(ctf)+" ­ Port"+STR$(ch)+" "
  719.  IF c THEN y$=y$+"­ Remote ":IF rmt THEN y$=y$+"EIN " ELSE y$=y$+"AUS "
  720.  IF LEFT$(y$,2)=" 0" THEN y$=" "+RIGHT$(y$,LEN(y$)-2) 
  721.  dlen=LEN(y$):disp$(0)=y$
  722.  IF brief THEN
  723.    disp$(t)=STR$(brief)+" Brief":IF brief>1 THEN disp$(t)=disp$(t)+"e"
  724.    disp$(t)=disp$(t)+" angekommen!":t=t+1
  725.  END IF  
  726.  IF c THEN 
  727.    IF via$>"" THEN
  728.      disp$(t)=LEFT$(st$,LEN(st$)-LEN(via$))    
  729.      disp$(t)=disp$(t)+"("+namen$(ssid)+"/"+sprache$(ssid)+"/"+zsatz$(ssid)+")"
  730.      disp$(t+1)=via$:t=t+2
  731.    ELSE
  732.      disp$(t)=st$:disp$(t)=disp$(t)+" ("+namen$(ssid)+"/"+sprache$(ssid)+"/"+zsatz$(ssid)+")"
  733.      t=t+1
  734.    END IF
  735.  END IF
  736.  IF LEN(lc$) THEN disp$(t)=lc$:t=t+1
  737.  y=mha*mhd*8+3:IF c=0 THEN y=212+210*hires
  738.  IF meme<>t OR dlem<>dlen THEN
  739.   meme=t:dlem=dlen
  740.   WINDOW 5,tit$,(630-8*dlen-3*hires,y)-(630-3*hires,y+t*8),18,1:COLOR 3,0
  741.  END IF
  742.  WINDOW OUTPUT 5:LOCATE 1,1
  743.  FOR i=0 TO t-1
  744.    PRINT disp$(i)SPACE$(dlen-LEN(disp$(i)));:IF i<t-1 THEN PRINT 
  745.  NEXT:MENU ON:MOUSE ON:GOTO csr1
  746.  
  747. ddcon:
  748.  l=LEN(x$+tx$(s)):GOSUB f2:GOSUB dd:ON c+1 GOSUB f1,f2
  749.  FOR t=1 TO 20000:NEXT:RETURN
  750.  
  751. ddcmd: 
  752.  GOSUB f1:GOSUB ddc:ON c GOTO f2
  753. RETURN
  754.  
  755. ddb:
  756.  tx$="":IF c THEN tx$=cr$+cv$
  757.  tx$=tx$+"<PBBS>: ":tb=8:GOTO ddcon
  758. ddr: tx$=cr$+cv$+"<RMT>: ":tb=7:GOTO ddcon
  759. dde:
  760.  IF fehler=1 THEN RETURN
  761.  tx$=cv$+cr$+"<ERROR>: "+go$:tb=9:GOTO ddcon
  762.  
  763. dds: tx$=SPACE$(tb):GOTO ddcon
  764.  
  765. ddc:
  766.  WINDOW OUTPUT 3:IF POS(0)=2 THEN PRINT bs$;
  767.  PRINT tx$:PRINT#1,tx$cr$;:tx$="":RETURN
  768.  
  769. dd:
  770.  x$=tx$+tx$(s):GOSUB comp:tx$=x$+cr$:txm2$=tx$
  771.  FOR t=1 TO LEN(tx$):i$=MID$(tx$,t,1):GOSUB dtzz
  772.    IF dt=0 THEN PRINT#1,i$;:IF i$<>cc$ AND i$<>cv$ THEN GOSUB csr3
  773.  NEXT:tx$="":tx$(0)="":tx$(1)="":RETURN
  774.  
  775. menue:
  776. x=MENU(0):y=MENU(1)
  777. IF x=1 THEN ON y GOTO ,mhan,mhaus,,be0,be.25,be.5,be.75,,qrv,stby,busy,,hires
  778. IF x=2 THEN  ON y GOTO kw,vhf,uhf,,drucken,,pk.in,ende
  779. IF x=3 THEN
  780.   ON y GOTO ,zss,zsd,zsi,,,brief.menu,file.sp,file.menu,bbs.neu,,spd,spe,rmt.ein,rmt.aus,,logbuch.disk,logbuch.dr
  781. ELSEIF x=4 THEN
  782.   ON y GOTO rmt.i,mail
  783.   tx$=txt$(y-2):GOTO ddcon
  784. END IF:RETURN
  785.  
  786. rmt.ein: MENU 3,14,2:MENU 3,15,1:rmt=1:GOTO disp
  787. rmt.aus: MENU 3,14,1:MENU 3,15,2:rmt=0:GOTO disp
  788.  
  789. drucken:
  790.  IF drucken=0 THEN
  791.    drucken=1:MENU 2,5,2:GOSUB logbuch.disk
  792.  ELSE
  793.    drucken=0:MENU 2,5,1
  794.  END IF:RETURN
  795.  
  796. be0: tx$="b e 0":be=0:GOTO be.u
  797. be.25: tx$="b e"+STR$(INT(95+RND*9)):be=1:GOTO be.u
  798. be.5: tx$="b e"+STR$(INT(185+RND*9)):be=2:GOTO be.u
  799. be.75: tx$="b e"+STR$(INT(240+RND*9)):be=3
  800. be.u: FOR t=5 TO 8:MENU 1,t,1:NEXT:MENU 1,5+be,2:GOTO ddcmd
  801. spd: s=0:MENU 3,12,2:MENU 3,13,1:RETURN
  802. spe: s=1:MENU 3,12,1:MENU 3,13,2:RETURN
  803.  
  804. kw: GOSUB mh.sp:tx$="hb 300"+cr$+"vhf of":band=1:GOTO band.u
  805. vhf: GOSUB mh.sp:tx$="hb 1200"+cr$+"vhf on":band=2:GOTO band.u
  806. uhf: GOSUB mh.sp:tx$="hb 1200"+cr$+"vhf on":band=3
  807.  
  808. band.u:
  809.  MENU STOP:MOUSE STOP:GOSUB ddcmd:x$="MH-Liste "+band$(band)+" wird geladen":WIND6
  810.  OPEN"I",#2,"PK-Talk.Daten:DATEN/MH-"+band$(band)
  811.  mhdm=0:mhalt=1:t=0:INPUT#2,datumem$
  812.  WHILE NOT EOF(2):t=t+1:INPUT#2,mhs$(t,0):INPUT#2,oft(t):WEND
  813.  CLOSE 2:mh(0)=t:mh(1)=0
  814.  FOR t=0 TO mhmax(1):mhs$(t,1)="":NEXT
  815.  FOR t=1 TO 3:MENU 2,t,1:NEXT:MENU 2,band,2:WINDOW CLOSE 6
  816. WINDOW OUTPUT 2:CLS:LOCATE 25*(1+hires),1:GOTO mhan
  817.  
  818. file.sp:
  819.  tit$="File für's BBS abspeichern:":GOSUB wind1
  820.  IF file THEN
  821.    MENU 3,7,1:MENU 3,9,1:tx$="bbs of":GOSUB ddcmd
  822.    flp&(fl)=LOF(2):CLOSE 2
  823.    WINDOW OUTPUT 1:PRINT:tx$="File '"+flg$+"' abgespeichern":GOSUB jn
  824.    IF k$="N" THEN GOSUB loesch.fl.u ELSE GOSUB file.com
  825.    file=0:GOTO cl
  826.  END IF
  827.  MENU 3,7,0:MENU 3,9,0:tx$="bbs on":GOSUB ddcmd
  828.  WINDOW OUTPUT 1:PRINT:FOR t=1 TO rubz:PRINT t;rubl$(t):NEXT
  829.  SCROL:PRINT:INPUT" Rubrik-Nr. ";x$:x=VAL(x$):IF x=0 OR x>rubz THEN file.sp
  830.  x$=rubl$(x):GOSUB dir.u:SCROL:INPUT" File-Nr. oder neuer File-Name ";f$
  831.  fl=0:IF LEN(f$)<4 THEN fl=VAL(f$)
  832.  IF f$="" OR fl>flz THEN cl
  833.  IF fl THEN f$=fl$(fl)
  834.  FOR j=1 TO flz:IF UCASE$(f$)=UCASE$(fl$(j)) AND rub$(j)=x$ THEN fl=j
  835.  NEXT
  836.  IF fl=0 THEN flz=flz+1:fl=flz:rub$(fl)=x$:fl$(fl)=f$ 
  837.  flg$=bbs$(bbsneu)+x$+"/"+f$:OPEN "a",#2,flg$:file=1
  838. GOTO cl
  839.  
  840. file.menu:
  841.  tit$="File von Diskette:":GOSUB wind1:flp&=0:fle&=0:flbox&=0:flzbox=0
  842.  FOR t=1 TO flz:fle&=fle&+fle&(t):flp&=flp&+flp&(t)
  843.  IF box(t) THEN flbox&=flbox&+fle&(t):flzbox=flzbox+1
  844.  NEXT
  845.  WINDOW OUTPUT 1
  846.  PRINT flz"Files insgesamt gespeichert"TAB(40)flzbox"davon für's BBS freigegeben"
  847.  PRINT fle&"Byte ungepackt"TAB(40)flbox&"Byte ungepackt"
  848.  PRINT flp&"Byte   gepackt /";
  849.  x$=STR$(10000-INT(10000*flp&/fle&))
  850.  PRINT LEFT$(x$,LEN(x$)-2)"."RIGHT$(x$,2)" %":PRINT  
  851.  FOR t=1 TO rubz:PRINT t;rubl$(t):NEXT:PRINT
  852.  INPUT " Rubrik-Nr. ";x$:x=VAL(x$):IF x=0 OR x>rubz THEN cl
  853.  x$=rubl$(x):GOSUB dir.u:INPUT " File-Nr. ";k$:fl=VAL(k$)
  854.  IF fl>flz OR fl=0 GOTO cl
  855.  PRINT:flg$=bbs$(bbsneu)+rub$(fl)+"/"+fl$(fl):PRINT " Filename: "flg$:PRINT 
  856.  PRINT 0"- Zurück":PRINT 1"- lesen":PRINT 2"- packen":PRINT 3"- entpacken"
  857.  PRINT 4"- Umlaute wandeln (ae->ä etc.)":PRINT 5"- drucken":PRINT 6"- löschen"
  858.  PRINT 7"- umbenennen":IF c THEN PRINT 8"- senden"
  859.  PRINT:flg$=bbs$(bbsneu)+rub$(fl)+"/"+fl$(fl)
  860.  OPEN "a",#2,flg$:CLOSE 2:REM fuer den Fall dass das file nicht da ist 
  861. sp2: GOSUB key:vz=VAL(k$)
  862.  rmtz=0:PRINT:ON vz GOSUB file.rd,pack.entpack,pack.entpack,pack.entpack,file.dr,loesch.fl,rename
  863.  IF vz=8 THEN GOSUB rmt.rfl
  864. GOTO cl
  865.  
  866. file.dr: 
  867.  druck=1:GOSUB logbuch.disk
  868.  SCROL:INPUT" <N>ormal oder <K>omprimiert drucken ";x$:x$=UCASE$(x$)
  869.  IF x$<>"N" AND x$<>"K" GOTO file.dr
  870.  IF x$="K" THEN dr$=CHR$(15)+esc$+CHR$(65)+CHR$(8)+esc$+CHR$(50) ELSE dr$=""
  871.  SCROL:tx$="Mit automatischem Seitenvorschub":GOSUB jn
  872.  IF k$="J" THEN vorschub=1 ELSE vorschub=0
  873.  SCROL:INPUT" Linke Randposition (0 - 9)";x$:lr=VAL(x$)
  874. file.rd: 
  875.  CLS:PRINT:lzeile=0:OPEN "i",#2,flg$:flp&(fl)=LOF(2):le&=0
  876.  WHILE NOT EOF(2)
  877.    LINE INPUT #2,x$:GOSUB entpack:PRINT x$:le&=le&+LEN(x$)+1
  878.    IF druck=1 AND (lzeile+LEN(x$)>0 OR vorschub=0) THEN
  879.      LPRINT dr$SPACE$(lr)x$:lzeile=lzeile+vorschub
  880.      IF lzeile=65 THEN FOR t=1 TO 7:LPRINT:NEXT:lzeile=0
  881.    END IF
  882.    GOSUB blaettern:IF k$=esc$ THEN CLOSE 2,4:RETURN
  883.  WEND:CLOSE 2:fle&(fl)=le&
  884.  IF druck THEN druck=0:LPRINT esc$CHR$(65)CHR$(12)esc$CHR$(50):REM Zeilenvorschub normal
  885.  PRINT:PRINT" »» File-Ende ««":PRINT:GOTO key
  886.  
  887. loesch.fl:
  888.  PRINT:xx$="das File '"+flg$+"'"
  889.  GOSUB loesch.jn:IF k$<>"J" THEN RETURN
  890. loesch.fl.u:
  891.  rub$(fl)=rub$(flz):fl$(fl)=fl$(flz):dat$(fl)=dat$(flz):com$(fl)=com$(flz)
  892.  box(fl)=box(flz):fle&(fl)=fle&(flz)
  893.  flp&(fl)=flp&(flz):flsp(fl)=flsp(flz)
  894.  rub$(flz)="":fl$(flz)="":com$(flz)="":box(flz)=0:fle&(flz)=0:flp&(flz)=0:flz=flz-1
  895.  OPEN "a",#2,flg$:CLOSE 2:KILL flg$:dirneu=1
  896. GOTO dir.sp
  897.  
  898. rename:
  899.  PRINT "   Alter File-Name "fl$(fl):PRINT:SCROL 
  900.  INPUT " Neuer File-Name ";k$:IF k$="" THEN x$=fl$(fl)
  901.  NAME bbs$(bbsneu)+rub$(fl)+"/"+fl$(fl) AS bbs$(bbsneu)+rub$(fl)+"/"+k$ 
  902.  PRINT:fl$(fl)=k$
  903. file.com:
  904.  SCROL:INPUT" Bemerkung dazu für's Directory ";x$:IF x$>"" THEN com$(fl)=x$
  905.  SCROL:tx$="Für Remote freigeben":GOSUB jn
  906.  IF k$="J" THEN box(fl)=1 ELSE box(fl)=0
  907.  SCROL:INPUT" Text ist in <E>nglisch / <D>eutsch ",x$
  908.  IF x$<>"e" THEN flsp(fl)=0 ELSE flsp(fl)=1
  909. dat$(fl)=datum$:GOTO dir.sp
  910.  
  911.  
  912. pack.entpack:
  913.  tx$="ct  Bitte ein paar Minuten QRX, System betreibt gerade Datenpflege!"
  914.  GOSUB ddcmd
  915.  le&=0:lp&=0:lw=0:OPEN "i",#2,flg$:OPEN "o",#3,"ram:copy":WINDOW OUTPUT 1
  916.  WHILE NOT EOF(2)
  917.    LINE INPUT#2,x$:l=LEN(x$)
  918.    IF vz=2 THEN
  919.      GOSUB entpack:GOSUB comp:PRINT x$:le&=le&+LEN(x$):GOSUB pack:lp&=lp&+LEN(x$)
  920.    ELSEIF vz=3 THEN
  921.      lp&=lp&+LEN(x$):GOSUB entpack:le&=le&+LEN(x$):PRINT x$
  922.    ELSEIF vz=4 THEN
  923.      GOSUB entpack:GOSUB comp:l=LEN(x$):PRINT x$
  924.      GOSUB wandeln:ll=l-LEN(x$):lw=lw+ll:IF ll THEN COLOR 3:PRINT x$:COLOR 2
  925.      le&=le&+LEN(x$):GOSUB pack:lp&=lp&+LEN(x$)
  926.    END IF
  927.    PRINT#3,x$
  928.  WEND
  929.  CLOSE 2,3
  930.  fle&(fl)=le&:flp&(fl)=lp&:PRINT
  931.  OPEN "o",#2,flg$:OPEN "i",#3,"ram:copy"
  932.  WHILE NOT EOF(3):LINE INPUT#3,x$:PRINT#2,x$:WEND:CLOSE 2,3
  933.  tx$="ct "+ctan$:GOSUB ddcmd:KILL "ram:copy":KILL flg$+".info"
  934. RETURN
  935.  
  936. jn: SCROL:PRINT " "tx$" (J/N) ? ";
  937. jn.u: 
  938.  GOSUB key:k$=UCASE$(k$):IF k$="Y" THEN k$="J"
  939.  IF k$<>"J" AND k$<>"N" THEN BEEP:GOTO jn.u
  940. COLOR 3:PRINT k$:COLOR 2:PRINT:RETURN
  941.  
  942. loesch.jn: 
  943.  PRINT " Soll ";:COLOR 3:PRINT xx$:COLOR 2:tx$="wirklich gelöscht werden"
  944.  GOSUB jn:PRINT:IF k$="J" THEN PRINT" Also gut..." ELSE PRINT" Dann halt nicht..."
  945. RETURN
  946.  
  947. txt.sn:
  948.  IF rmtz=0 THEN
  949.    rmtz=1:lesen=1:OPEN "i",#2,flg$
  950.    tx$(0)="Filelänge:":tx$(1)="file-length:"
  951.    tx$(s)=cv$+cr$+tx$(s)+STR$(LOF(2))+" byte"+cv$+cr$:GOSUB ddcon
  952.  END IF
  953.  IF NOT EOF(2) THEN
  954.    LINE INPUT #2,x$:GOSUB entpack:GOSUB comp
  955.    IF LEFT$(x$,1)="/" THEN x$="  "+x$
  956.    IF NOT EOF(2) THEN x$=x$+cv$ ELSE x$=x$+cr$
  957.    tx$=x$:GOTO ddcon
  958.  END IF                                  
  959.  CLOSE 2:rmtw=rmtm:RETURN
  960.  
  961. dir.u:
  962.  CLS:PRINT:PRINT" Rubrik: "x$TAB(75)"für's":PRINT TAB(44)"Spra-"TAB(77)"BBS"
  963.  PRINT" Nr. Filename / Kommentar"TAB(45)"che Datum"TAB(62)"Filelänge"TAB(76)"frei"
  964.  PRINT " "STRING$(78,"-")
  965.  FOR i=1 TO flz
  966.    IF rub$(i)=x$ THEN
  967.      l=9-LEN(fl$(i)):IF l<1 THEN l=1
  968.      PRINT i;TAB(6)fl$(i)SPACE$(l);:IF com$(i)>"" THEN PRINT "/ "com$(i);
  969.      PRINT TAB(47):IF flsp(i)=1 THEN PRINT "E "; ELSE PRINT "D ";
  970.      PRINT dat$(i)TAB(61)fle&(i)"/"flp&(i)TAB(76)
  971.      IF box(i) THEN PRINT"  JA" ELSE PRINT"NEIN"
  972.      GOSUB blaettern
  973.    END IF
  974.  NEXT
  975. PRINT:RETURN
  976.  
  977. cl:
  978.  meme=0:druck=0
  979.  ON MOUSE GOSUB dummy:MOUSE ON:WINDOW 2:WINDOW 3:IF mha THEN WINDOW 4
  980. GOTO disp
  981.  
  982. zss: zsf=0:MENU 3,2,2:MENU 3,3,1:MENU 3,4,1:RETURN
  983. zsd: zsf=1:MENU 3,2,1:MENU 3,3,2:MENU 3,4,1:RETURN
  984. zsi: zsf=2:MENU 3,2,1:MENU 3,3,1:MENU 3,4,2:RETURN
  985. mhaus: MENU 1,2,1:MENU 1,3,2:WINDOW CLOSE 4:mha=0:GOTO disp
  986. mhan: MENU 1,2,2:MENU 1,3,1:mha=1:mhneu=1:meme=0
  987.  
  988. mhlist:
  989.  MOUSE STOP:GOSUB mhform:IF mhd>mhdm THEN mhneu=1:mhdm=mhd:meme=0
  990.  IF mhneu THEN WINDOW 4,,(0,0)-(639,(mhd-1)*8-1),16,1
  991.  WINDOW OUTPUT 4:LOCATE 1,1:COLOR 2,0:FOR j=1 TO mhd:IF j>1 THEN PRINT
  992.  PRINT mhd$(j)SPACE$(80-LEN(mhd$(j)));:mhd$(j)="":NEXT
  993.  ON mhneu GOSUB disp:mhneu=0:mhzeig=0:WINDOW OUTPUT 3:MOUSE ON
  994.  RETURN
  995.  
  996. blaettern: IF CSRLIN <30 THEN RETURN
  997.  PRINT :PRINT " »» <SPACE> - weiter  *  <ESC> - Ende ««":GOSUB key
  998.  LOCATE 31,1:PRINT SPACE$(79):FOR t=1 TO 25:PRINT:NEXT:LOCATE 5,1
  999. RETURN
  1000.  
  1001. key: k$=""
  1002.  WHILE k$=""
  1003.    k$=INKEY$
  1004.    IF sort=1 THEN
  1005.      i=RND(1)*(flz-1):j=i+1
  1006.      IF UCASE$(rub$(j)+"  "+fl$(j))<UCASE$(rub$(i)+"  "+fl$(i)) THEN
  1007.        SWAP rub$(i),rub$(j):SWAP fl$(i),fl$(j):SWAP dat$(i),dat$(j)
  1008.        SWAP com$(i),com$(j):SWAP flsp(i),flsp(j)
  1009.        SWAP box(i),box(j):SWAP fle&(i),fle&(j):SWAP flp&(i),flp&(j)
  1010.      END IF
  1011.    END IF
  1012.  WEND
  1013. sort=0:RETURN
  1014.  
  1015. hires:
  1016.  IF hires=0 THEN hires=1 ELSE hires=0
  1017.  GOSUB ende.u:RUN
  1018.  
  1019. var.in:
  1020. GOSUB farb:GOSUB bildschirm:x$=" Einen Moment bitte...":WIND6
  1021. DEFINT a-z:mhmax(0)=20:mhmax(1)=mhmax(0)/2
  1022. DEF FNb=b(ASC(INPUT$(1,1)),zsf)
  1023. DIM b(255,2),l(6),s(3)
  1024. DIM oft(mhmax(0)),mhd$(mhmax(1)),mhs$(mhmax(0),1),monat$(12):x=180
  1025. DIM fl$(x),rub$(x),dat$(x),com$(x),flsp(x),box(x),fle&(x),flp&(x)
  1026. flmax=x:DIM rubl$(30),band$(3),s$(1),txt$(17)
  1027. band$(1)="KW":band$(2)="VHF":band$(3)="UHF":s$(0)="GER":s$(1)="ENG"
  1028. zs$(0)="-":zs$(1)="DIN":zs$(2)="IBM"
  1029. cta$(0)="BUSY":cta$(1)="STANDBY":cta$(2)="QRV"
  1030. cc$=CHR$(3):go$=CHR$(7):bs$=CHR$(8):cr=13:cr$=CHR$(cr):cv$=CHR$(22):esc$=CHR$(27)
  1031. bbs$(0)="PK-Talk.Daten:bbs/":bbs$(1)="df0:":bk$=bbs$(0)+"BRIEFKASTEN/"
  1032. RESTORE monat:FOR t=1 TO 12:READ monat$(t):NEXT
  1033. OPEN "i",#2,"sys:version.txt":INPUT#2,ver$:CLOSE 2
  1034. monat: DATA Jan,Feb,Mrz,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez
  1035. FOR t=32 TO 255:FOR i=0 TO 2:b(t,i)=t:NEXT:NEXT
  1036.  
  1037. REM IBM
  1038. b(15,2)=0:b(142,2)=ASC("Ä"):b(153,2)=ASC("Ö"):b(154,2)=ASC("Ü")
  1039. b(132,2)=ASC("ä"):b(148,2)=ASC("ö"):b(129,2)=ASC("ü"):b(225,2)=ASC("ß")
  1040.  
  1041. REM ATARI spezial
  1042. b(158,2)=ASC("ß")
  1043.  
  1044. FOR t=129 TO 225:b(t,0)=b(t,2):NEXT
  1045.  
  1046. REM DIN
  1047. b(91,1)=ASC("Ä"):b(92,1)=ASC("Ö"):b(93,1)=ASC("Ü")
  1048. b(123,1)=ASC("ä"):b(124,1)=ASC("ö"):b(125,1)=ASC("ü"):b(126,1)=ASC("ß")
  1049.  
  1050. FOR t=0 TO 2:b(7,t)=7:b(8,t)=8:b(13,t)=13:NEXT
  1051.  
  1052. menu.in:
  1053.  OPEN"I",#2,"sys:menu":WHILE NOT EOF(2):INPUT#2,x1,x2,x3:LINE INPUT#2,x$:GOSUB comp
  1054.  MENU x1,x2,x3,LEFT$(x$,LEN(x$)-1):WEND:CLOSE 2
  1055.  GOSUB zss:OPEN "i",#2,bbs$(0)+"PK-TALK-intern/Standardtexte":t=0
  1056.  WHILE NOT EOF(2)
  1057.    t=t+1:LINE INPUT#2,x$:txt$(t)=x$:x$=" "+x$
  1058.    IF LEN(x$)>46 THEN x$=LEFT$(x$,43)+"..."
  1059.    MENU 4,t+2,1,x$
  1060.  WEND:CLOSE 2:GOTO logbuch.disk
  1061.  
  1062. disk.in:
  1063.  OPEN"I",#2,bbs$(0)+"BRIEFKASTEN/Briefe von"
  1064.  WHILE NOT EOF(2):brv=brv+1:INPUT #2,brv$(brv):WEND:CLOSE 2
  1065.  OPEN"I",#2,bbs$(0)+"BRIEFKASTEN/Briefe für":MENU 4,2,1:INPUT#2,brfnr
  1066.  WHILE NOT EOF(2):brf=brf+1:INPUT #2,brf$(brf):WEND:CLOSE 2
  1067.  OPEN"I",#2,"PK-Talk.Daten:DATEN/Parameter":INPUT#2,be,band,hires:CLOSE 2
  1068.  IF hires THEN 
  1069.    MENU 1,14,1,"   normal":GOSUB bildschirm
  1070.  ELSE 
  1071.    MENU 1,14,1,"   interlace"
  1072.  END IF
  1073. OPEN "com1:9600,n,8,1" AS 1:PRINT #1,"*";:GOSUB band.u
  1074.  
  1075. pk.in: pkin=1
  1076.  pk.in.u:
  1077.  IF pkin=1 THEN tx$="bbs on"+cr$+"m 0"
  1078.  IF pkin=2 THEN tx$="da "+RIGHT$(DATE$,2)+LEFT$(DATE$,2)+MID$(DATE$,4,2)+LEFT$(TIME$,2)+MID$(TIME$,4,2)+RIGHT$(TIME$,2)
  1079.  IF pkin=3 THEN pkin=4:ON be+1 GOTO be0,be.25,be.5,be.75
  1080.  IF pkin=4 THEN pkin=5:OPEN "sys:startup" FOR INPUT AS #4:RETURN
  1081.  IF pkin=5 THEN LINE INPUT #4,ctan$:LINE INPUT #4,ctaus$:INPUT #4,my$:tx$="my "+my$
  1082.  IF pkin=6 THEN tx$="mya PKTALK"+cr$+"ct "+ctan$
  1083.  IF pkin=7 THEN
  1084.    IF NOT EOF(4) THEN
  1085.      LINE INPUT#4,tx$:GOTO ddcmd
  1086.    ELSE
  1087.      CLOSE 4
  1088.    END IF
  1089.  END IF
  1090.  IF pkin=8 THEN pkin=-1:tx$="bbs of"+cr$+"c"+cr$+"mh"
  1091.  pkin=pkin+1:GOTO ddcmd
  1092.  
  1093. bbs.neu:
  1094.  IF bbsneu=0 THEN bbsneu=1 ELSE bbsneu=0
  1095.  tit$="neue Daten-Disk:":GOSUB wind1:WINDOW OUTPUT 1
  1096.  PRINT:PRINT" Andere Daten-Disk in Drive DF0: einlegen"
  1097.  PRINT:PRINT" dann weiter mit <TASTE>"
  1098.  GOSUB key:PRINT:PRINT " ok.":GOSUB cl:GOTO bbs.in
  1099.  
  1100. bbs.in:
  1101.  flz=0:rubz=0:x$="Disketteninhalt wird eingelesen":WIND6
  1102.  OPEN"I",#2,bbs$(bbsneu)+"File-dir"
  1103.  INPUT#2,rubz:FOR t=1 TO rubz:INPUT#2,rubl$(t):NEXT
  1104.  WHILE NOT EOF(2):ffl=1:flz=flz+1
  1105.    INPUT#2,rub$(flz):INPUT#2,fl$(flz):INPUT#2,com$(flz):INPUT#2,dat$(flz)
  1106.    INPUT#2,flsp(flz),box(flz),fle&(flz),flp&(flz):fle&=fle&+fle&(flz)
  1107.  WEND:CLOSE 2
  1108.  FOR i=1 TO rubz-1:FOR j=i+1 TO rubz
  1109.    IF rubl$(j)<rubl$(i) THEN SWAP rubl$(i),rubl$(j)
  1110.  NEXT:NEXT:WINDOW CLOSE 6:RETURN
  1111.  
  1112. dir.sp:
  1113.  x$="Directory wird abgespeichert":WIND6:dirneu=0
  1114.  OPEN "o",#2,bbs$(bbsneu)+"File-dir"
  1115.  PRINT#2,rubz:FOR t=1 TO rubz:PRINT#2,rubl$(t):NEXT
  1116.  FOR t=1 TO flz:PRINT#2,rub$(t):PRINT#2,fl$(t):PRINT #2,com$(t)
  1117.  PRINT#2,dat$(t):PRINT#2,flsp(t),box(t),fle&(t),flp&(t):NEXT
  1118. WINDOW CLOSE 6:CLOSE 2:RETURN
  1119.  
  1120. mh.sp:
  1121.  IF file THEN RETURN
  1122.  MENU STOP:MOUSE STOP:tx$="mh %":GOSUB ddcmd
  1123.  IF mhalt=0 THEN
  1124.    x$="MH-Liste "+band$(band)+" wird abgespeichert":WIND6
  1125.    OPEN "o",#2,"PK-Talk.Daten:DATEN/MH-"+band$(band):PRINT #2,datum$
  1126.    FOR t=1 TO mh(0):PRINT #2,mhs$(t,0):PRINT #2,oft(t):NEXT:CLOSE 2
  1127.  END IF
  1128. WINDOW CLOSE 6:GOTO disp
  1129.  
  1130. csr1: WINDOW OUTPUT 1:GOTO csr
  1131. csr3: WINDOW OUTPUT 3
  1132. csr:
  1133.  IF i$="" THEN x=VAL(RIGHT$(TIME$,1)):IF sec=x THEN RETURN
  1134.  sec=x:IF po THEN PRINT bs$;
  1135.  PRINT i$;:IF POS(0)<79 THEN po=1:PRINT "_"; ELSE po=0
  1136. RETURN
  1137.  
  1138. rufzeichen:
  1139.  GOSUB comp:gegsid$=x$:ssid=ABS(VAL(RIGHT$(x$,2))):IF ssid>9 THEN ssid=0
  1140.  ck=INSTR(x$,"-"):IF ck THEN x$=LEFT$(x$,ck-1)
  1141.  nocall=0:IF LEN(x$)>6 OR LEN(x$)<3 THEN nocall=1:RETURN
  1142.  ck$="1234567890":FOR t=1 TO 10
  1143.    x=INSTR(x$,MID$(ck$,t,1))
  1144.    IF x>0 AND x<LEN(x$) THEN RETURN
  1145.  NEXT:nocall=1:RETURN
  1146.  
  1147. dummy: meme=0:GOSUB farb:bl2=0:zt=32000:GOTO disp
  1148.  
  1149. dummy2: k$=" ":RETURN
  1150.  
  1151. mail:
  1152.  IF c THEN
  1153.    IF brf THEN 
  1154.      tx$(0)="Nachricht gespeichert für":tx$(1)="mail stored for"
  1155.    ELSE 
  1156.      tx$(0)="Z.Zt. keine Nachrichten gespeichert":tx$(1)="no mails stored"
  1157.    END IF
  1158.  ELSE 
  1159.    tx$(s)="mail for"
  1160.  END IF
  1161.  IF brf THEN
  1162.    FOR t=1 TO brf:tx$(s)=tx$(s)+" * "+brf$(t):NEXT
  1163.    tx$(s)=tx$(s)+" *":x$=" "+tx$(s):IF LEN(x$)>43 THEN x$=LEFT$(x$,40)+"..."
  1164.    MENU 4,2,1,x$
  1165.  ELSE
  1166.    MENU 4,2,1,""
  1167.  END IF
  1168. GOTO ddb
  1169.  
  1170. wind1: 
  1171.  MENU OFF:ON MOUSE GOSUB dummy2:MOUSE ON
  1172.  WINDOW 1," »»» "+tit$+" ««« ",(0,0)-(639,256),0,1
  1173.  COLOR 2,0:WINDOW OUTPUT 1:PRINT:RETURN
  1174.  
  1175. farb: POKE 12574721&,252:bl1=0
  1176.  PALETTE 0,0,0,0
  1177.  PALETTE 1,.1,.3,.8:REM Rahmen
  1178.  PALETTE 3,.1,1,.1:REM helle Schrift
  1179.  PALETTE 2,1,.5,0:REM normale Schrift
  1180. RETURN
  1181.  
  1182. ende: 
  1183.  IF file THEN GOSUB file.sp
  1184.  GOSUB dir.sp:GOSUB ende.u:CHDIR "sys:":LIST:END
  1185. ende.u:
  1186.  tx$="bbs on"+cr$+"m of"+cr$+"ct "+ctaus$+cr$+"b e 0"
  1187.  GOSUB ddcmd:GOSUB mh.sp:x$="»» ENDE ««":WIND6
  1188.  OPEN "o",#2,"PK-Talk.Daten:DATEN/Parameter"
  1189.  PRINT#2,be,band,hires,idm:CLOSE 2 
  1190.  FOR t=0 TO 99:WHILE LOC(1):WINDOW OUTPUT 2:PRINT INPUT$(1,1);:WEND:NEXT
  1191.  CLOSE 1:MENU RESET:SCREEN CLOSE 1:RETURN
  1192.  
  1193. bildschirm:
  1194. SCREEN CLOSE 1
  1195. IF hires=0 THEN
  1196.   SCREEN 1,648,281,2,2
  1197.   WINDOW 2,,(0,0)-(639,199),16,1:COLOR 2,0:REM rx
  1198.   WINDOW 3,,(0,212)-(639,250+13),16,1:COLOR 2,0:REM tx
  1199. ELSE
  1200.   SCREEN 1,648,562,2,4
  1201.   WINDOW 2,,(0,0)-(639,399),16,1:COLOR 2,0
  1202.   WINDOW 3,,(0,412)-(639,513),16,1:COLOR 2,0
  1203. END IF
  1204. WIDTH "scrn:",80:GOTO farb
  1205.  
  1206. pack:
  1207.  IF LEN(x$)<5 THEN RETURN
  1208.  pak$=LEFT$(x$,1):tz=1:tm$="":x$=x$+CHR$(0)
  1209.  FOR t=2 TO LEN(x$):t$=MID$(x$,t,1):ersez$=""
  1210.    IF t$=tm$ AND tz<29 THEN
  1211.      tz=tz+1
  1212.    ELSE
  1213.      IF tz>1 THEN
  1214.        pak$=LEFT$(pak$,LEN(pak$)-1)
  1215.        IF tz>3 THEN
  1216.          ersez$=esc$+CHR$(tz+93)+tm$
  1217.        ELSE
  1218.          ersez$=STRING$(tz,tm$)
  1219.        END IF
  1220.      END IF
  1221.      pak$=pak$+ersez$+t$:tz=1:tm$=t$
  1222.    END IF
  1223.  NEXT
  1224. REM rechts gleich?
  1225.  l=LEN(pak$)-1:x$=LEFT$(pak$,l):ll=l:IF LEN(pmem$)<ll THEN ll=LEN(pmem$)
  1226.  IF ll>25 THEN ll=25
  1227.  FOR t=1 TO ll-1:IF RIGHT$(x$,t)=RIGHT$(pmem$,t) THEN NEXT
  1228.  t=t-1:IF MID$(x$,l-t,1)=esc$ THEN t=t-1
  1229.  IF t>3 THEN x$=LEFT$(x$,l-t)+esc$+CHR$(t+94)
  1230. REM links gleich?
  1231.  l=LEN(x$):ll=l:IF ll>25 THEN ll=25
  1232.  FOR t=1 TO ll:IF LEFT$(x$,t)=LEFT$(pmem$,t) THEN NEXT
  1233.  t=t-1:pmem$=x$:IF t>3 THEN x$=esc$+CHR$(t+94)+RIGHT$(x$,l-t)
  1234. RETURN
  1235.  
  1236. entpack:
  1237.  l=LEN(x$):IF l<2 THEN RETURN
  1238.  IF LEFT$(x$,1)=esc$ THEN x$=LEFT$(emem$,ASC(MID$(x$,2,1))-94)+RIGHT$(x$,l-2)
  1239.  l=LEN(x$)
  1240.  IF MID$(x$,l-1,1)=esc$ THEN x$=LEFT$(x$,l-2)+RIGHT$(emem$,ASC(RIGHT$(x$,1))-94)
  1241.  emem$=x$
  1242.  WHILE INSTR(x$,esc$)
  1243.    x=INSTR(x$,esc$):x1$=LEFT$(x$,x-1)   
  1244.    x2$=STRING$(ASC(MID$(x$,x+1,1))-93,MID$(x$,x+2,1))
  1245.    x3$=RIGHT$(x$,LEN(x$)-x-2):x$=x1$+x2$+x3$
  1246.  WEND
  1247.  RETURN
  1248.  
  1249. SUB SCROL STATIC
  1250.  PRINT:PRINT:PRINT:LOCATE CSRLIN-2,1
  1251. END SUB
  1252.  
  1253. SUB WIND6 STATIC
  1254.  SHARED x$
  1255.  x$="  "+x$+"  "
  1256.  WINDOW 6,,(318-LEN(x$)*4,160)-(318+LEN(x$)*4,174),0,1
  1257.  COLOR 3,1:CLS:PRINT:PRINT x$;
  1258. END SUB
  1259.  
  1260. SUB REQUESTER (tit$) STATIC
  1261.  SHARED wahl
  1262.  hor=40:WINDOW 6,,(180,120)-(420,140),0,1
  1263.  COLOR 3,1:CLS:PRINT:PRINT tit$;
  1264. END SUB
  1265.  
  1266. DATA DB,DC,DD,DF,DG,DH,DJ,DK,DL,OE,Y2,Y3,Y4,Y5,Y6,Y7,Y8,Y9,HB9,X
  1267.  
  1268. wa.ae:
  1269.  DATA "Ae","Ä"
  1270.  DATA " ae"," ä",".ae.",".ä.",".AE.",".Ä."
  1271.  DATA "baec","bäc","BAEC","BÄC","baed","bäd","BAED","BÄD"
  1272.  DATA "baeh","bäh","BAEH","BÄH"
  1273.  DATA "bael","Bäl","BAEL","BÄL"
  1274.  DATA "baen","bän","BAEN","BÄN"
  1275.  DATA "baer","bär","BAER","BÄR","baes","bäs","BAES","BÄS"
  1276.  DATA "baeu","bäu","BAEU","BÄU"
  1277.  DATA "daec","däc","DAEC","DÄC"
  1278.  DATA "daem","däm","DAEM","DÄM","daen","dän","DAEN","DÄN"
  1279.  DATA "daer","där","DAER","DÄR"
  1280.  DATA "faec","fäc","FAEC","FÄC","faed","fäd","FAED","FÄD"
  1281.  DATA "faeh","fäh","FAEH","FÄH"
  1282.  DATA "fael","fäl","FAEL","FÄL"
  1283.  DATA "faen","fän","FAEN","FÄN"
  1284.  DATA "faes","fäs","FAES","FÄS"
  1285.  DATA "gaeb","gäb","GAEB","GÄB"
  1286.  DATA "gaeh","gäh","GAEH","GÄH"
  1287.  DATA "gaen","gän","GAEN","GÄN"
  1288.  DATA "gaer","gär","GAER","GÄR","gaes","gäs","GAES","GÄS"
  1289.  DATA "gaeu","gäu","GAEU","GÄU"
  1290.  DATA "geae","geä","GEAE","GEÄ"
  1291.  DATA "haef","häf","HAEF","HÄF","haeg","häg","HAEG","HÄG","haeh","häh","HAEH","HÄH"
  1292.  DATA "hael","häl","HAEL","HÄL"
  1293.  DATA "haen","hän","HAEN","HÄN"
  1294.  DATA "haer","här","HAER","HÄR","haes","häs","HAES","HÄS","haet","hät","HAET","HÄT"
  1295.  DATA "haeu","häu","HAEU","HÄU"
  1296.  DATA "haez","häz","HAEZ","HÄZ"
  1297.  DATA "jaeg","jäg","JAEG","JÄG"
  1298.  DATA "jaeh","jäh","JAEH","JÄH"
  1299.  DATA "jaem","jäm","JAEM","JÄM"
  1300.  DATA "kaeb","käb","KAEB","KÄB"
  1301.  DATA "kaef","käf","KAEF","KÄF"
  1302.  DATA "kael","käl","KAEL","KÄL","kaem","käm","KAEM","KÄM"
  1303.  DATA "kaep","käp","KAEP","KÄP"
  1304.  DATA "kaes","käs","KAES","KÄS","kaet","kät","KAET","KÄT"
  1305.  DATA "laec","läc","LAEC","LÄC","laed","läd","LAED","LÄD"
  1306.  DATA "laef","läf","LAEF","LÄF","laeg","läg","LAEG","LÄG","laeh","läh","LAEH","LÄH"
  1307.  DATA "laem","läm","LAEM","LÄM","laen","län","LAEN","LÄN"
  1308.  DATA "laer","lär","LAER","LÄR","laes","läs","LAES","LÄS","laet","lät","LAET","LÄT"
  1309.  DATA "laeu","läu","LAEU","LÄU"
  1310.  DATA "maen","män","MAEN","MÄN"
  1311.  DATA "maer","mär","MAER","MÄR","maes","mäs","MAES","MÄS"
  1312.  DATA "maet","mät","MAET","MÄT","maeu","mäu","MAEU","MÄU"
  1313.  DATA "maex","mäx","MAEX","MÄX"
  1314.  DATA "naec","näc","NAEC","NÄC"
  1315.  DATA "naeh","näh","NAEH","NÄH"
  1316.  DATA "nael","näl","NAEL","NÄL","naem","näm","NAEM","NÄM"
  1317.  DATA "naer","när","NAER","NÄR","naes","näs","NAES","NÄS"
  1318.  DATA "paec","päc","PAEC","PÄC"
  1319.  DATA "paei","päi","PAEI","PÄI"
  1320.  DATA "paet","pät","PAET","PÄT"
  1321.  DATA "raec","räc","RAEC","RÄC"
  1322.  DATA "raef","räf","RAEF","RÄF","raeg","räg","RAEG","RÄG"
  1323.  DATA "raen","rän","RAEN","RÄN"
  1324.  DATA "raes","räs","RAES","RÄS","raet","rät","RAET","RÄT","raeu","räu","RAEU","RÄU"
  1325.  DATA "saec","säc","SAEC","SÄC"
  1326.  DATA "saem","säm","SAEM","SÄM"
  1327.  DATA "saet","sät","SAET","SÄT","saeu","säu","SAEU","SÄU"
  1328.  DATA "taed","täd","TAED","TÄD"
  1329.  DATA "taeg","täg","TAEG","TÄG"
  1330.  DATA "tael","täl","TAEL","TÄL"
  1331.  DATA "taen","tän","TAEN","TÄN"
  1332.  DATA "taer","tär","TAER","TÄR"
  1333.  DATA "taet","tät","TAET","TÄT","taeu","täu","TAEU","TÄU"
  1334.  DATA "waec","wäc","WAEC","WÄC"
  1335.  DATA "waeg","wäg","WAEG","WÄG","waeh","wäh","WAEH","WÄH"
  1336.  DATA "wael","wäl","WAEL","WÄL"
  1337.  DATA "waer","wär","WAER","WÄR","waes","wäs","WAES","WÄS"
  1338.  DATA "zaeh","zäh","ZAEH","ZÄH"
  1339.  DATA "zael","zäl","ZAEL","ZÄL","zaem","zäm","ZAEM","ZÄM","zaen","zän","ZAEN","ZÄN"
  1340.  DATA "michäl","michael","MICHÄL","MICHAEL"
  1341.  DATA ende
  1342. wa.oe:
  1343.  DATA "Oe","Ö"
  1344.  DATA "oeff","öff","OEFF","ÖFF","oeft","öft","OEFT","ÖFT"
  1345.  DATA "oert","ört","OERT","ÖRT"
  1346.  DATA "oest","öst","OEST","ÖST"
  1347.  DATA "foed","föd","FOED","FÖD"
  1348.  DATA "foer","för","FOER","FÖR"
  1349.  DATA "geoe","geö","GEOE","GEÖ"
  1350.  DATA "goep","göp","GOEP","GÖP"
  1351.  DATA "goet","göt","GOET","GÖT"
  1352.  DATA "hoec","höc","HOEC","HÖC"
  1353.  DATA "hoef","höf","HOEF","HÖF"
  1354.  DATA "hoeh","höh","HOEH","HÖH"
  1355.  DATA "hoel","höl","HOEL","HÖL","hoem","höm","HOEM","HÖM","hoen","hön","HOEN","HÖN"
  1356.  DATA "hoep","höp","HOEP","HÖP"
  1357.  DATA "hoer","hör","HOER","HÖR","hoes","hös","HOES","HÖS"
  1358.  DATA "ioes","iös","IOES","IÖS"
  1359.  DATA "joer","jör","JOER","JÖR"
  1360.  DATA "koel","köl","KOEL","KÖL","koem","köm","KOEM","KÖM","koen","kön","KOEN","KÖN"
  1361.  DATA "koep","köp","KOEP","KÖP"
  1362.  DATA "koer","kör","KOER","KÖR","koes","kös","KOES","KÖS","koet","köt","KOET","KÖT"
  1363.  DATA "loeb","löb","LOEB","LÖB","loec","löc","LOEC","LÖC"
  1364.  DATA "loef","löf","LOEF","LÖF"
  1365.  DATA "loeh","löh","LOEH","LÖH"
  1366.  DATA "loes","lös","LOES","LÖS","loet","löt","LOET","LÖT"
  1367.  DATA "moec","möc","MOEC","MÖC"
  1368.  DATA "moeg","mög","MOEG","MÖG","moeh","möh","MOEH","MÖH"
  1369.  DATA "moer","mör","MOER","MÖR"
  1370.  DATA "noet","nöt","NOET","NÖT"
  1371.  DATA "roed","röd","ROED","RÖD"
  1372.  DATA "roeh","röh","ROEH","RÖH"
  1373.  DATA "roem","röm","ROEM","RÖM","moen","mön","MOEN","MÖN"
  1374.  DATA "roem","röm","ROEM","RÖM"
  1375.  DATA "roer","rör","ROER","RÖR","roes","rös","ROES","RÖS","roet","röt","ROET","RÖT"
  1376.  DATA "soen","sön","SOEN","SÖN"
  1377.  DATA "toen","tön","TOEN","TÖN"
  1378.  DATA "toer","tör","TOER","TÖR"
  1379.  DATA "toet","töt","TOET","TÖT"
  1380.  DATA "voeg","vög","VOEG","VÖG"
  1381.  DATA "voel","völ","VOEL","VÖL"
  1382.  DATA "voer","vör","VOER","VÖR"
  1383.  DATA "woec","wöc","WOEC","WÖC"
  1384.  DATA "woeh","wöh","WOEH","WÖH"
  1385.  DATA "woel","wöl","WOEL","WÖL"
  1386.  DATA "woer","wör","WOER","WÖR"
  1387.  DATA "zoeg","zög","ZOEG","ZÖG"
  1388.  DATA "zoes","zös","ZOES","ZÖS"
  1389.  DATA "göthe","goethe","GÖTHE","GOETHE"
  1390.  DATA "pösie","poesie","PÖSIE","POESIE"
  1391.  DATA ende
  1392. wa.ue:
  1393.  DATA "Ue","Ü","ueue","üü","UEUE","ÜÜ"
  1394.  DATA "menue","menü","Menue","Menü","MENUE","MENÜ"
  1395.  DATA "uebe","übe","UEBE","ÜBE","uebl","übl","UEBL","ÜBL","uebr","übr","UEBR","ÜBR"
  1396.  DATA "uebt","übt","UEBT","ÜBT" 
  1397.  DATA "bueb","büb","BUEB","BÜB","buec","büc","BUEC","BÜC"
  1398.  DATA "buef","büf","BUEF","BÜF","bueg","büg","BUEG","BÜG","bueh","büh","BUEH","BÜH"
  1399.  DATA "buen","bün","BUEN","BÜN"
  1400.  DATA "buer","bür","BUER","BÜR","bues","büs","BUES","BÜS","buet","büt","BUET","BÜT"
  1401.  DATA "duen","dün","DUEN","DÜN"
  1402.  DATA "duer","dür","DUER","DÜR","dues","düs","DUES","DÜS"
  1403.  DATA "fueg","füg","FUEG","FÜG","fueh","füh","FUEH","FÜH"
  1404.  DATA "fuel","fül","FUEL","FÜL","fuem","füm","FUEM","FÜM","fuen","fün","FUEN","FÜN"
  1405.  DATA "fuer","für","FUER","FÜR","fuet","füt","FUET","FÜT"
  1406.  DATA "geue","geü","GEUE","GEÜ"
  1407.  DATA "guel","gül","GUEL","GÜL"
  1408.  DATA "guen","gün","GUEN","GÜN"
  1409.  DATA "hueb","hüb","HUEB","HÜB","huec","hüc","HUEC","HÜC"
  1410.  DATA "hueh","hüh","HUEH","HÜH"
  1411.  DATA "huel","hül","HUEL","HÜL"
  1412.  DATA "huer","hür","HUER","HÜR","hues","hüs","HUES","HÜS","huet","hüt","HUET","HÜT"
  1413.  DATA "juel","jül","JUEL","JÜL"
  1414.  DATA "juen","jün","JUEN","JÜN"
  1415.  DATA "juer","jür","JUER","JÜR"
  1416.  DATA "kueb","küb","KUEB","KÜB","kuec","küc","KUEC","KÜC"
  1417.  DATA "kueh","küh","KUEH","KÜH"
  1418.  DATA "kuek","kük","KUEK","KÜK","kuel","kül","KUEL","KÜL"
  1419.  DATA "kuem","küm","KUEM","KÜM","kuen","kün","KUEN","KÜN"
  1420.  DATA "kuer","kür","KUER","KÜR","kues","küs","KUES","KÜS"
  1421.  DATA "lueb","lüb","LUEB","LÜB","luec","lüc","LUEC","LÜC","lued","lüd","LUED","LÜD"
  1422.  DATA "luef","lüf","LUEF","LÜF","lueg","lüg","LUEG","LÜG","lueh","lüh","LUEH","LÜH"
  1423.  DATA "luem","lüm","LUEM","LÜM","luen","lün","LUEN","LÜN"
  1424.  DATA "luep","lüp","LUEP","LÜP"
  1425.  DATA "lues","lüs","LUES","LÜS","luet","lüt","LUET","LÜT"
  1426.  DATA "muec","müc","MUEC","MÜC","mued","müd","MUED","MÜD"
  1427.  DATA "muef","müf","MUEF","MÜF","mueg","müg","MUEG","MÜG"
  1428.  DATA "mueh","müh","MUEH","MÜH"
  1429.  DATA "muel","mül","MUEL","MÜL","muem","müm","MUEM","MÜM","muen","mün","MUEN","MÜN"
  1430.  DATA "muep","müp","MUEP","MÜP"
  1431.  DATA "muer","mür","MUER","MÜR","mues","müs","MUES","MÜS","muet","müt","MUET","MÜT"
  1432.  DATA "nueg","nüg","NUEG","NÜG"
  1433.  DATA "nuel","nül","NUEL","NÜL","nuem","nüm","NUEM","NÜM","nuen","nün","NUEN","NÜN"
  1434.  DATA "nuer","nür","NUER","NÜR","nues","nüs","NUES","NÜS","nuet","nüt","NUET","NÜT"
  1435.  DATA "puer","pür","PUER","PÜR"
  1436.  DATA "rueb","rüb","RUEB","RÜB","ruec","rüc","RUEC","RÜC","rued","rüd","RUED","RÜD"
  1437.  DATA "ruef","rüf","RUEF","RÜF","rueg","rüg","RUEG","RÜG","rueh","rüh","RUEH","RÜH"
  1438.  DATA "ruel","rül","RUEL","RÜL","ruem","rüm","RUEM","RÜM","ruen","rün","RUEN","RÜN"
  1439.  DATA "ruep","rüp","RUEP","RÜP"
  1440.  DATA "rues","rüs","RUES","RÜS","ruet","rüt","RUET","RÜT"
  1441.  DATA "sued","süd","SUED","SÜD"
  1442.  DATA "tueb","tüb","TUEB","TÜB","tuec","tüc","TUEC","TÜC"
  1443.  DATA "tuef","tüf","TUEF","TÜF"
  1444.  DATA "tuel","tül","TUEL","TÜL","tuem","tüm","TUEM","TÜM","tuen","tün","TUEN","TÜN"
  1445.  DATA "tuer","tür","TUER","TÜR","tues","tüs","TUES","TÜS","tuet","tüt","TUET","TÜT"
  1446.  DATA "wuen","wün","WUEN","WÜN"
  1447.  DATA "wuer","wür","WUER","WÜR"
  1448.  DATA "zuec","züc","ZUEC","ZÜC"
  1449.  DATA "zueg","züg","ZUEG","ZÜG"
  1450.  DATA "zuen","zün","ZUEN","ZÜN"
  1451.  DATA "zuer","zür","ZUER","ZÜR"
  1452.  DATA "aktüll","aktuell","AKTÜLL","AKTUELL"
  1453.  DATA "entüll","entuell","ENTÜLL","ENTUELL"
  1454.  DATA "manüll","manuell","MANÜLL","MANUELL"
  1455.  DATA "zürst","zuerst"
  1456.  DATA ende
  1457. wa.ss:
  1458.  DATA "ausser","außer"
  1459.  DATA "aussen","außen","außenden","aussenden","außendung","aussendung"
  1460.  DATA "äusser","äußer","ässt","äßt"
  1461.  DATA "dreissig","dreißig"
  1462.  DATA "elsass","elsaß"
  1463.  DATA "fussb","fußb"
  1464.  DATA "giessen","gießen","giesst","gießt"
  1465.  DATA "gross","groß","gröss","größ"
  1466.  DATA "gruss","gruß","grüss","grüß"
  1467.  DATA "hasst","haßt"
  1468.  DATA "heiss","heiß"
  1469.  DATA "küsschen","küßchen"
  1470.  DATA "lass","laß","laße","lasse"
  1471.  DATA "lässl","läßl","lässt","läßt"
  1472.  DATA "mässig","mäßig"
  1473.  DATA "mess-","meß-"
  1474.  DATA "missb","mißb","missh","mißh","missl","mißl","missw","mißw"
  1475.  DATA "muss ","muß ","musst","mußt","müsst","müßt"
  1476.  DATA "passt ","paßt "
  1477.  DATA "schliess","schließ"
  1478.  DATA "schluss","schluß"
  1479.  DATA "schuss","schuß"
  1480.  DATA "spass","spaß"
  1481.  DATA "strasse","straße"
  1482.  DATA "stoss","stoß","stöss","stöß"
  1483.  DATA "süss","süß"
  1484.  DATA "tschüss","tschüß"
  1485.  DATA "weiss","weiß","weißag","weissag"
  1486.  DATA "ßss","ßß","ßs ","ßß ","ßs.","ßß."
  1487.  DATA "äss ","äß "
  1488.  DATA "biss ","biß "
  1489.  DATA "dass ","daß "
  1490.  DATA "guss ","guß "
  1491.  DATA "kuss ","kuß "
  1492.  DATA "loss ","loß "
  1493.  DATA "mass ","maß ","muss ","muß "
  1494.  DATA "ross ","roß "
  1495.  DATA ende,
  1496.  
  1497.